r 

Vo-MM  272  THE  EFFECT  OF  THE  OOLDMATER-NICHOLS  OEFMTHENT  OF 

DEFENSE  REORGHNIZRTION.  .  <U>  NHVHL  POSTCWHOURTE  SCHOOL 
HONTEREV  Cfl  T  F  STEWARD  DEC  >7 

UNCLASSIFIED  F/O  5/J 

1/1 

NL 

1 

■ 

■ 

L 

NAVAL  POSTGRADUATE  SCHOOL 
Monterey ,  California  ^  m 


THESIS 


THE  EFFECT  OF  THE  GOLDWATER-NICHOLS 
DEPARTMENT  OF 

DEFENSE  REORGANIZATION  ACT  ON  SURFACE 
WARFARE  OFFICER 
CAREER  PATHS 


by 


Thomas  F.  Steward 


December  1987 

Thesis  Advisor  Paul  R.  Milch 


Approved  for  public  release;  distribution  is  unlimited. 


DTIC 

^ELECTEB 


APR  0  1 1988 


EMgfflaHlffiEUBgKaiiiaMBH 


1*.  REPORT  SECURITY  ClASSiF-CATON 


REPORT  DOCUMENTATION  PAGE 


ID  RESTRICTIVE  MARKINGS 


fJfflOMi WA 


2a  SECURITY  CLASSIFICATION  AUTHORITY 


2b  OEClASSiFiCATiON  ■■  DOWNGRADING  SCHEDULE 


4  PERFORMING  ORGANIZATION  REPORT  NUM8ER(S) 


3  Distribution /availability  of  report 

Approved  for  public  release; 
distribution  is  unlimited  _ 


5  MONITORING  ORGANIZATION  REPORT  NuMBER(S) 


6a  NAME  OF  PERFORMING  ORGANIZATION  6o  OFFICE  SYMBOL  I  7a  NAME  OF  MONITORING  ORGANIZATION 

(If  applicable)  | 

Naval  Postgraduate  School  54 


6c  ADDRESS  (City,  State,  and  ZIP  Code) 

Monterey,  California  93943-5100 


Java!  Postgraduate  School _ 


7d  address  (City.  State,  and  ZIP  Code) 

Monterey  California  93943-5100 


8a  NAME  OF  FUNDING  SPONSORING 

8d  OFFICE  SYMBOL 

ORGANIZATION 

(if  applicable) 

8c  ADDRESS  (City,  State,  and  ZIP  Code) 


11  title  (include  Secunty  classification)  ^  QF  ^  GOLDWATER-N1CHOLS  DEPARTMENT  OF  DEFENSE 

ORGANIZATION  ACT  ON  SURFACE  WARFARE  OFFICER  CAREER  PATHS 


io  source  of  funding  numbers 


PROGRAM 
ELEMENT  NO. 


PROJECT 

NO 


WORK  UNIT 
ACCESSION  NO 


12  PERSONAL  AUTHOR(S) 

Steward,  Thomas  F. 


13a  TYPE  OF  REPORT 


13D  TIME  COVERED 
FROM _  TO 


14  DATE  OF  REPORT  (Year,  Month,  Day)  IS  PAGE  COUNT 

1987  December  77 


COSATl  CODES 


SUB-GROUP 


18  SUBJECT  TERMS  (Continue  on  reverte  if  necessary  and  identify  by  block  number) 

SWD  Career  Paths;  SWDPATH  model; 

Goldwater-Nichols  Act;  Department  of  Defense  Reorganization 


19  ABSTRA'T  (Continue  on  reverse  if  necessary  and  identify  by  block  number) 

This  thesis  reviews  the  joint  officer  management  policies  mandated 
by  the  Goldwater-Nichols  Department  of  Defense  Reorganization  Act  and 
analyzes  their  effect  on  Surface  Warfare  Officer  (SWO)  career  paths. 
The  focus  of  this  thesis  is  the  balance  between  joint  education  and 
experience  on  the  one  hand,  and  service  specific  education  and 
experience  on  the  other  hand.  The  analysis  is  conducted  using  the 
SWOPATH  model  of  SWO  career  paths  developed  in  an  earlier  Naval 
Postgraduate  School  thesis.  The  results  show  grade  creep  in  the 
Commander  command  billets  of  SWO  career  paths  resulting  from  a  shift  in 
emphasis  toward  joint  experience.  I  .•  >  f  L...c  ,  ;  r  ■ 


21  abstract  security  CLASSIFICATION 


20  DISTRIBUTION- AVAILABILITY  OF  ABSTRACT 

Q  UNCLASSlFiED/UNLlVITEO  □  SAME  AS  RPT  □  QTiC  USERS 


22*  NAME  OF  RESPONSIBLE  individual  |22b  TELEPHONE  (Include  Area  Code)  »2c  OFFICE  SYMBOL 

Prof.  Paul  R.  Milch  1(408)  646-2882 _ 


DO  FORM  1473,  84  MAR  83  apr  edt-crn  may  oe  used  unt'i  exhausted  SECURITY  classification  Qf  this  page 

All  otner  editions  are  obsolete  •  «.».  o».«.  >»••- 

UNCLASSIFIED 


1 


WW  "J<  W  HBWWWSFWJ  W  W  ViW*Tuoi»xr  H-iw'.RT.^J^jicjKJiurtC/y  ir*ir>>.ip<viu".^i.'xjnu(j\xnji?\j« 


Approved  for  public  release;  distribution  is  unlimited. 


The  Effect  of  the  Goldwater-Nichols  Department  of 
Defense  Reorganization  Act  on  Surface  Warfare  Officer 
Career  Paths 


by 


Thomas  F.  Steward 

Lieutenant  Commander,  United  States  Navy 
B.S.,  Southern  Methodist  University,  1972* 


Submitted  in  partial  fulfillment  of  the 
requirements  for  the  degree  of 


MASTER  OF  SCIENCE  IN  MANAGEMENT 


from  the 


NAVAL  POSTGRADUATE  SCHOOL 
December  1987 


( 

I 

I 


ABSTRACT 


This  thesis  reviews  the  joint  officer  management  policies  mandated  by  the 
Goldwater-Nichols  Department  of  Defense  Reorganization  Act  and  analyzes  their 
effect  on  Surface  Warfare  Officer  (SWO)  career  paths.  The  focus  of  this  thesis  is  the 
balance  between  joint  education  and  experience  on  the  one  hand,  and  service  specific 
education  and  experience  on  the  other  hand.  The  analysis  is  conducted  using  the 
SWOPATH  model  of  SWO  career  paths  developed  in  an  earlier  Naval  Postgraduate 
School  thesis.  The  results  show  grade  creep  in  the  Commander  command  billets  of 
SWO  career  paths  resulting  from  a  shift  in  emphasis  toward  joint  experience. 
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I.  INTRODUCTION 


A.  PROBLEM 

On  October  1,  1986  the  Goldwater-Nichols  Department  of  Defense  <DOD) 
Reorganization  Act  became  law.  Among  the  Law's  stated  purposes  are: 

1.  to  improve  the  military  advice  provided  to  the  President,  the  National  Security 
Council,  and  the  Secretary  of  Defense; 

2.  to  improve  joint  officer  management  policies;  and 

3.  otherwise  to  enhance  the  effectiveness  of  military  operations  and  improve  the 
management  and  administration  of  the  Department  of  Defense.  [Ref.  1:  SEC. 
3-1 

To  accomplish  the  improvement  of  joint  officer  management,  the  Law  creates  a 
new  specialty  for  officers  of  all  services,  the  joint  specialty.  The  goal  of  the  Law  s  joint 
officer  management  policies  is  to  ensure  that  competitive  officers,  who  are  current  in 
their  warfare  specialties,  are  introduced  into  joint  assignments. 

The  Law  sets  forth  specific  policies  for  the  management,  promotion,  education 
and  tour  length  of  these  specialists  and  in  doing  so,  delves  into  areas  which  have  been 
the  concern  of  the  individual  services  and  threatens  to  disrupt  the  traditional 
progression  of  career  enhancing  assignments  established  by  the  services.  The  Law,  in 
effect,  mandates  a  new  category  of  career  enhancing  assignments,  namely,  joint 
assignments.  A  career  enhancing  assignment  is  one  which  the  service  determines  to  be 
challenging  and  which,  if  completed  successfully,  keeps  an  officer  competitive  for 
promotion  and  positions  of  increased  responsibility.  Traditionally,  career  enhancing 
assignments  are  the  result  of  service  policy  and  do  not  carry  the  force  of  law. 

Consequently,  when  viewed  in  the  framework  of  existing  career  progressions,  the 
joint  officer  management  policies  established  by  the  Goldwater-Nichols  Act  threaten  to 
defeat  the  very  purpose  they  were  intended  to  achieve  by  creating  a  subspec.ahy  path 
that  removes  current  and  competitive  officers  from  their  warfare  specialty  for  extended 
periods  of  time. 

The  Goldwater-Nichols  Act  has  generated  renewed  scrutiny  of  joint  duty 
assignments  and  the  Intermediate  and  Senior-level  Professional  Military  Education 
iPME)  leading  to  those  assignments.  The  Chairman  of  The  Joint  Chiefs  of  Stall 
convened  the  Senior  Military  Schools  Review  Board  to  study  the  jointness'  of  PME. 
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In  its  report,  the  Senior  Military  Schools  Review  Board  stated: 

The  JSO  (Joint  Service  Officer)  is  not  an  elite  officer  and  should  not  be  divorced 
from  the  mainstream  of  the  Services.  [Ref.  2:  pg  12] 

Further,  the  board  stated  that  in  visits  to  the  senior  and  intermediate  Service  schools: 

The  Commandants  and  faculties  of  these  colleges  cautioned  against  trying  to 
produce  joint  officers  who  do  not  understand  the  capabilities  and  limitations  of 
their  own  Service.  They  persuasively  described  our  nation's  need  for  officers  who 
perform  well  in  the  joint  area  because  of  their  Service-specific  knowledge  and 
skills,  not  despite  their  expertise  and  experience.  [Ref.  2:  pg  1] 

In  interviews  with  the  board: 

Key  military  commanders  emphasized  the  need  to  integrate  the  joint  specialists 
into  the  entire  defense  establishment,  not  to  segregate  them  into  a  separate  group 
with  different  experiences  and  education.  [Ref.  2:  pg  1-2] 

Given  that  the  joint  officer  management  policies  are  law,  and  that  the  traditional 
career  enhancing  assignments  are  service  policy,  then  the  task  for  the  services  is  to 
accommodate  the  law,  and  its  intent,  without  weakening  an  officer's  experience  in 
service  related  assignments. 

In  further  discussions  of  this  issue  I  will  focus  on  U.  S.  Navy  Unrestricted  Line 
(URL)  officers  and  more  specifically  the  Surface  Warfare  Officer  community  of  URL 
officers. 

B.  BACKGROUND 

An  Unrestricted  Line  Officer  is  a  naval  officer  who  is  eligible  to  command  ships 
or  aircraft. 

I.  The  Surface  Warfare  Officer  Career  Path 

The  SWO  community  is  defined  as  follows: 

The  Surface  Warfare  Community  is  composed  of  officers  who  are  qualified  in  the 
surface  warfare  specialty,  who  man  the  surface  ships  of  the  Navy  and  whose  goal 
is  to  command  those  ships.  The  Surface  Warfare  Officer  (SWO)  must  develop 
experience  and  in-depth  knowledge  in  a  specific  line  of  discipline  (operations 
combat  systems  or  engineering)  and  learn  the  fundamentals  of  engineering, 
weapons  systems,  and  operational  tactics.  [Ref.  3:  pg.  30] 


Key  to  understanding  the  SWO  career  path  ts  the  ultimate  goal  of  commanding  ships. 
Whether  as  Commanding  Officer  of  an  individual  ship,  or  as  Squadron,  Group  or  Fleet 
Commander,  it  is  the  command  of  ships  which  drives  the  determination  of  the  SWO 
career  path.  This  emphasis  on  command  at  sea  places  certain  constraints  on  a  SWO  s 
career  path  in  the  form  of  required  professional  training  and  operational  sea  tours. 
Specifically  these  tours  are: 

1.  SWOS  Division  Officer  course 

2.  Division  Officer  tour 

3.  SWOS  Department  Head  course 

4.  Two  Department  Head  tours 

5.  Perspective  Executive  Officer  (PXO)  course 

6.  Executive  Officer  (XO)  tour 

7.  Perspective  Commanding  Officer  (PCO)  course 

8.  Commanding  Officer  (CO)  tour 

9.  Major  Command  tour 

In  recent  guidance  to  promotion  and  continuation  selection  boards,  the 
Secretary  of  the  Navy  directed  that  renewed  emphasis"  be  given  to  operational 
experience  in  the  promotion  of  Naval  Officers  jRef.  4).  This  guidance  strengthens  the 
primacy  of  the  above  progression  of  tours  in  the  SWO  career  path. 

Although  the  SWO  career  path  emphasizes  operational  sea  tours,  it  also 
places  a  premium  on  the  development  of  a  subspecialty. 

The  subspecialty  system  recognizes  continued  operational  development  ...  as  the 

cornerstone  of  I'RL  career  development  and.  at  the  same  time,  to  meet  total 

Navy  requirements,  encourages  concentrated  development  in  a  subspecialty  field. 

(Ref.  3:  pg.  14] 

Development  of  a  subspecialty  entails  graduate  education  and  or  repeated  tours  ashore 
in  a  subspecialty  area. 

Traditional  career  enhancing  -bore  assignments  include  the  Naval 
Postgraduate  School,  a  service  college,  instructor  duty,  recruiting  duty,  duty  at  the 
service  headquarters  (OPNAV)  or  dutv  i  n  a  major  staff. 

The  Surface  Warfare  Of  lice:  c  ueer  path  is.  then,  the  progression  of 
assignments  of  increasing  respcmibn.:'.  which  an  officer  must  follow  to  attain 
command  at  sea.  The  Surface  Waifaie  <  career  path  is  depicted  in  Figure  l.l.1 

*Source:  L  RL  Officer  Career  P'.n.r.mg  Guidebook 
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2.  The  Joint  Specialty  (JSPEC)  Officer 

The  DOD  Reorganization  Act  defines  joint  matters  as: 

relating  to  the  integrated  employment  of  land,  sea.  and  air  forces,  including 
matters  relating  to- 

1.  national  military  strategy 

2.  strategic  planning  and  contingency  planing;  and 

3.  command  and  control  of  combat  operations  under  unified  command. 

[Ref.  1:  Title  IV.  SEC  401] 

A  JSPEC  is  therefore  and  officer  who  is  nominated  or  designated  as  having  a  specialty 
in  planning  and  command  and  control  in  a  unified  command. 

An  officer  may  be  nominated  by  a  service  Secretary  as  a  JSPEC  if  he  is  an 
officer  of  paygrade  03  or  above  and  he  completes  a  course  of  instruction  at  a  joint 
professional  military  education  (PME)  school.  Presently,  only  the  colleges  of  the 
National  Defense  University  (NDU);  the  Armed  Forces  Staff  College  (AFSC),  the 
National  War  College  (NWC).  and  the  Industrial  College  of  the  Armed  Forces  (ICAF) 
qualify  as  joint  PME  schools.  (Ref.  1:  Title  IV,  SEC.  401] 

An  officer  is  designated  as  a  JSPEC  by  the  Secretary  of  Defense  if  he  is 
nominated  as  a  JSPEC  and  completes  a  full  tour  of  duty  in  a  joint  assignment 
[Ref.  T.  Title  IV,  SEC.  401[.  JSPEC's  are  further  divided  into  those  officers  with  and 
without  a  Critical  Combat  Operations  Skill  (CCOS)  [Ref.  1:  Title  IV,  SEC.  401].  Those 
officers  with  the  SWO  designator  and  who  are  ordered  to  tours  at  sea  as  Commanding 
Officer  or  Executive  Officer  are  said  to  have  a  CCOS. 

The  promotion  rate  for  nominated  and  designated  JSPEC's  can  be  no  less 
than  that  of  officers  of  the  same  armed  force,  grade  and  competitive  category  with 
service  headquarters  (OPNAV)  experience.  The  promotion  rate  for  any  officer  serving 
in  a  joint  assignment  can  be  no  less  than  that  of  all  officers  of  the  same  armed  force, 
grade  and  competitive  category.  [Ref.  1:  Title  IV,  SEC.  401] 

The  Law  requires  that  by  1992,  any  officer  selected  for  promotion  to  flag  or 
general  rank  must  have  served  in  a  joint  assignment  prior  to  selection  [Ref.  1:  Title  IV, 
SEC.  404],  It  also  directs  that: 

Any  selection  board  that  will  consider  officers  who  are  serving  in.  or  have  served 
in.  joint  duty  assignments  <hall  include  at  least  one  officer  designated  by  the 
Chairman  of  the  Joint  Chiefs  of  Staff  who  is  currently  serving  in  a  joint  uuty 
assignment.  [Ref.  1:  Title  IV.  SEC.  4u2J 


The  law  stipulates  that  all  officers  nominated  for  the  joint  specialty  must  sene 
in  a  joint  assignment  immediately  following  their  PME  course.  It  further  stipulates 
that  fifty  per  cent  of  all  graduates  of  the  PME  courses,  regardless  of  whether  they  are 
nominated  for  JSPEC,  must  serve  in  an  immediate  follow-on  joint  assignment. 
[Ref.  1:  Title  IV.  SEC.  401] 

The  Law  also  tasks  the  Secretary  of  Defense  to  ensure  that  at  least  hail'  of  all 
joint  assignments  are  filled  by  officers  who  have,  or  have  been  nominated  for.  the  joint 
specialty.  It  further  tasks  the  Secretary  to  designate  at  least  louu  joint  billets.  DOD 
wide,  as  critical  joint  billets  and  to  ensure  that  critical  joint  billets  are  filled  by  officers 
who  are  designated  joint  specialists.  [Ref.  1:  Title  IV.  SEC.  4ul| 

Joint  assignment  tour  lengths  are  to  be  not  less  than  3  years  for  llag  and 
general  officers  and  not  less  than  3  1  2  years  for  other  officers  unless  the  officer  has  a 
CCOS,  in  which  case,  the  tour  will  be  not  less  than  2  years.  [Ref.  1:  Title  IV,  SEC. 
401[ 

C.  OBJECTIVES/REASONS  FOR  THE  ANALYSIS 

The  DOD  Reorganization  Act  causes  Navy  manpower  planners  to  perform  a 
balancing  act  with  the  competing  interests  in  the  SWO  career  path.  A  balance  must  be 
established  between  joint  education  and  experience,  on  the  one  hand,  and  service- 
specilic  education  and  experience,  on  the  ether  hand,  with  each  drawing  and  benefiting 
from  the  other. 

This  analysis  will  focus  on  that  balance  and  will  attempt  to  answer  the  following 
questions: 

1.  Can  the  balance  between  joint  ed.. nation  and  experience  and  SWO  education 
and  experience  be  achieved? 

2.  What  are  the  short  term  and.  _  term  effects  on  SWO  career  paths  of 

satisfying  the  statutory  require::.:  of  the  Goldwater-Nichols  Act.  with  or 

without  a  balance? 

3.  What  changes  to  SWO  career  p  any.  are  necessary  possible  to  achieve 

the  balance? 

The  results  of  this  analysis  u.  •  e  relationships  among  the  variables  of 

the  SWO  career  path  and  provide  n  in  which  to  evaluate  policy  decisions 

concerning  the  career  path. 


II.  FRAMEWORK 


A.  BACKGROUND 

The  analysis  of  the  effects  of  the  DOD  Reorganization  Act  on  the  SWO  career 
path  is  conducted  using  a  Network  representation  of  the  SWO  career  path  presented 
by  Howe  [Ref.  5|  and  modeled  by  Anmrault  [Ref.  6].  Specifically.  Amirauit's 
SWOPATH  model  is  used  to  evaluate  both  the  short  and  long  term  effects  of 
introducing  the  joint  specialty  into  various  alternative  SWO  career  paths. 

The  SWOPATH  model  is  chosen  as  the  tool  for  this  analysis  because  it  provides 
a  macroscopic  or  big  picture'  view  of  the  Surface  W'arfare  community.  The  fact  that  it 
was  designed  for  use  on  a  personal  computer,  also  makes  it  easy  for  the  analyst  to 
answer  "what  if?"  type  questions  rapidly. 

It  should  be  noted  that  the  model  is  not  a  detailer  s  tool  because  it  lacks  the 
specificity  necessary  for  that  use.  For  example,  in  this  application  of  the  SWOPATH 
model,  all  types  of  shore  duty  tours  except  Professional  Training.  Professional 
Education,  Joint  Education,  and  Joint  Tour  are  grouped  together  into  one  activity. 
This  is  necessitated  by  the  eight  activity  limit  of  the  model.  Increasing  the  number  of 
activities  would  require  a  fairly  extensive  re-programming  effort.  Similarly,  at  any  one 
tour,  no  distinction  is  made,  within  the  Professional  Education  activity,  between  the 
Naval  Postgraduate  School  and  the  various  service  colleges.  This  distinction  is  left  for 
the  user  to  make  outside  of  the  model.  Finally,  the  quarterly  time  interval,  imposed  by 
the  model,  for  each  iteration  of  the  calculations  does  not  allow  the  degree  of  specificity 
that  a  detailer  would  want. 

The  model  is,  however,  adequate  for  the  study  of  the  general  trends  of  interest  to 
the  manpower  policy  maker.  Despite  the  limitations  discussed  above,  there  remains 
sufficient  flexibility  in  the  model  to  make  it  a  very  satisfactory  tool  for  policy  analysis. 
As  is  the  case  for  this  study,  a  minimum  of  programming  knowledge  enables  the  user 
to  tailor  the  model  to  his  particular  use.  Ultimately,  no  re-programming  is  necessary  if 
the  user  is  unconcerned  with  the  activity  labels  on  the  output  of  the  program. 
Modifications  made  to  the  model  lor  this  study  are  discussed  in  a  subsequent  section. 


B.  THE  S  WO  PATH  MODEL 

The  SWOPATH  model  is  a  menu  driven,  interactive  simulation  model  written  in 
TURBO  PASCAL  It  is  based  on  a  network  of  eight  activities,  represented  by  rows, 
and  twelve  tours,  represented  by  columns.  While  the  order  of  the  activities  has  no 
particular  significance,  the  order  of  tours  from  left  to  right  represents  the  passage  of 
time  and  increased  seniority  of  the  officers.  A  node  is  a  specific  activity  tour 
combination  and  an  arc  is  a  path  between  nodes  of  one  column  leading  to  nodes  of  the 
next  column  to  the  right.  A  career  path  can  then  be  represented  by  a  series  of  nodes 
connected  by  one-way  arcs  pointing  from  left  to  right  in  the  network. 

Data  stored  at  each  node  of  the  network  are: 

1.  the  stocks  or  total  number  of  officers  at  that  node, 

2.  the  length  of  the  assignment  at  that  node  in  quarters, 

3.  a  breakdown  of  the  stocks  at  that  node  by  quarters  remaining  and 

4.  the  high  and  low  limits  for  stocks  at  that  node. 

Data  stored  on  the  arcs  are  the  percentages  of  officers  who  are  transfered  from 
one  node  to  another  along  the  arcs  in  one  iteration  of  the  calculation  routine. 

Starting  with  a  set  of  data  for  the  nodes,  arcs,  tour  lengths,  high  limits,  low 
limits,  and  with  the  clock  at  time  zero,  the  passage  of  time  is  simulated  iteratively  (one 
quarter  at  a  time)  by  calculations  which  apply  the  transfer  percentages  to  the  node 
data. 

Transfers  begin  with  those  officers  in  their  twelfth  tour  who  have  one  quarter 
remaining  in  that  tour.  These  officers,  who  are  captains  at  the  25  year  point  of  their 
careers,  represent  the  upper  limit  of  the  system  modeled  and  are  transfered  out  of  the 
system.  For  the  rest  of  the  officers  in  the  twelfth  tour,  the  quarters  remaining  in  that 
tour  are  reduced  by  one.  This  creates  a  vacancy  at  the  highest  number  of  quarters 
remaining  in  the  twelfth  tour  which  is  filled  by  transfers  from  the  previous  or  eleventh 
tour.  The  officers  transfered  from  the  eleventh  tour  are  those  who  previously  had  only 
one  quarter  remaining  in  the  eleventh  tour.  This  process  is  repeated  for  each 
successively  lower  numbered  tour.  Finally,  vacancies  created  by  transfers  from  the  first 
tour  are  filled  by  accessions. 

The  Separation  activity  at  each  tour  serves  as  a  holding  place  for  attritions  from 
the  Surface  Warfare  community  and  provides  an  accounting  of  those  attritions.  The 
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"tour  length"  for  each  tour  of  the  Separation  activity  is  one  quarter  and  thus  attritions 
leave  the  system  with  each  iteration  of  the  calculation  routine.  See  Appendix  A  for  a 
flow  chart  of  the  calculation  routine. 

C.  MODIFICATIONS  TO  THE  MODEL 

For  the  purposes  of  this  analysis,  several  modifications  to  the  model  are  made. 
The  activities  Washington  D.C.,  Shore  (COM'S),  and  Shore  (OUTUS)  are  combined 
into  one  activity,  labeled  Shore.  Two  new  activities,  Joint  Education  and  Joint  Tour, 
are  added.  With  the  merging  of  three  activities  and  the  creation  of  two  new  ones,  the 
total  of  eight  activities  is  maintained.  See  Table  1  for  updated  activity  definitions. 

TABLE  1  ! 

ACTIVITY  DEFINITIONS 

A.  PROFESSIONAL  TRAINING:  Student  billets  in  either  the  SWO 
Department  Head  or  SWO  Division  Officer  courses  of  instruction 
of  duration  longer  than  20  weeks. 


B.  PROFESSIONAL  EDUCATION:  Student  billets  at  a  postgraduate 
school  or  a  war  college  of  duration  longer  than  20  weeks. 

C.  JOINT  EDUCATION:  Student  billet  at  one  of  the  colleges  of  the 
National  Defense  University  of  duration  longer  than  20  weeks. 

D.  JOINT  TOUR:  Tour  in  a  designated  joint  billet. 

E.  FLEET  UNIT:  Ship's  company  sea  duty  billets. 

F.  AFLOAT  STAFF:  Afloat  staff  sea  duty  billets. 

G.  SHORE:  Shore  dutv  billets  in  the  Washington  D.  C.  area, 
continental  United  States  h  ONUS)  or  non-CONUS  not  meeting 
the  criteria  of  A  thru  D  abuse. 

H.  SEPARATION:  Loss  of  otlUers  from  the  SWO  communitv  for 
whatever  reason. 


When  Amirault  modified  the  calculations  routine  in  October  I9S5,  the  new 
source  code  exceeded  ffie  limits  of  the  TURBO  PASCAL®'3  compiler.  In  order  to 
compile  the  new  source  code,  the  code  that  creates  the  logo  at  sign-on  was  chanced 
and  the  code  which  creates  the  sign-oil  message  was  deleted. 

The  modifications  to  the  model's  source  code  can  be  found  in  Appendices  D 
through  1, 

D.  SCOPE 

The  target  population  of  this  analysis  is  pay  grades  Ol  through  Oo  of  the  Surface 
Warfare  OtTicer  community.  The  target  population  is  limited  to  male  SWOs  with 
designators  1110  (regular  Navy  SWO).  1160  (regular  Navy,  in  training  for  SWO).  1115 
(active  duty  Reserve  SWO)  and  1165  (active  duty  Reserve,  in  training  for  SWOl.  The 
population  is  further  limited  to  officers  who  are  not  nuclear  trained.  Women  SWO  s. 
TAR  (Training  and  Administration  of  Reserves)  SWO  s  and  nuclear  trained  SWO  s  are 
excluded  because  their  respective  career  paths  are  different  enough  from  the  abose 
mentioned  target  population  to  constitute  separate  categories  and  to  obscure  the  true 
effect  of  policy  changes  on  the  target  population. 

E.  ASSUMPTIONS 

The  major  assumptions  made  in  developing  the  framework  for  this  analysis  are  as 
follows: 

1.  Accessions  and  transfers  are  computed  on  a  quarterly  basis.  While  in  reality 
this  may  not  be  the  case  (computations  may  be  more  or  less  frequent  than 
quarterly),  transfer  percentages  are  adjusted  to  reflect  accurate  yearly  accessions 
and  transfers. 

2.  Separations  are  from  the  Fleet  Unit,  Afloat  Staff  and  Shore  activities  only. 
Selection  standards  and  incurred  additional  obligated  service  preclude 
separation  from  the  Professional  Training,  Professional  Education,  Joint 
Education,  and  Joint  Tour  activities  in  the  model. 

3.  Joint  Education  includes  any  of  the  colleges  of  the  National  Defense  L  imerstiy 
but  does  not  include  the  specific  service  colleges. 

4.  Professional  Education  through  tour  6  is  understood  to  be  the  Nm.  wl 
Postgraduate  School.  Beyond  tour  6  it  is  understood  to  be  any  of  the  specific 
service  colleges. 

5.  The  PXO  and  PCO  courses  are  combined  with  the  XO  and  CO  tours  because 
the  courses  are  shorter  than  one  quarter. 
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III.  METHODOLOGY 

A.  BACKGROUND 

Both  Howe  (Ref.  5:  p.  4b|  and  Mygas  j Ref.  7:  p.  lu|  used  a  representative  career 
path  to  Major  Command  as  the  basis  for  their  analyses.  Similarly,  the  method  used 
here  to  investigate  the  effects  of  the  DOD  Reorganization  Act  on  SWO  career  paths  is 
to  establish  a  Mainstream  career  path  leading  to  Major  Command.  First  a  transfer 
percentage  data  tile  (MNSTR.M3u.ARD)  which  reflects  current  but  pre*Reorcumzution 
Act  policies  is  created.4  Then,  with  the  stocks  at  each  node  set  to  zero,5  tiie  model  is 


run  to  30  years  and  the  resulting  steady  state  stocks  are  saved  to  a  tile  called 
MNSTRM30.NOD.  The  two  MNSTRM30  tiles  then  become  the  basis  lor  the  creation 
of  two  alternative  career  paths. 

In  the  case  of  each  alternative  career  path,  the  stocks  of  officers  are  made  to  be 
at  steady  state  prior  to  implementation  of  the  Reorganization  Act  requirements.  This 
is  accomplished  by: 

1.  selecting  the  file  containing  the  steady  state  stocks  for  the  Mainstream  career 
path  (MNSTRM30.NOD)f 

2.  creating  the  transfer  path  file  for  the  specific  alternative  by  editing  the 
Mainstream  transfer  percentages  file  (MNSTRM30.ARD)  and 

3.  running  the  model  to  30  years. 

The  transfer  percentages  and  the  resulting  steady  state  stocks  are  then  saved  and  used 
as  the  starting  point  for  the  analysis  of  the  elFects  of  the  Reorganization  Act  on  the 
alternative  career  path. 

For  the  Mainstream  career  path,  and  each  alternative  career  path  created  from  it. 
the  requirements  of  the  Reorganization  Act  are  implemented  by  changing  tour  lengths 
and  transfer  percentages  to  those  required  by  the  Act.  Accessions  are  held  constant  at 
325  officers  per  quarter  (I3U0  per  year).  No  changes  are  made,  other  than  those 
dictated  by  the  Reorganization  Act  requirements,  m  order  to  isolate  the  effects  due  to 
the  Act. 


4  This  is  done  by  editing  the  default  transfer  percentage  fiie  provided  it t.  the 


model. 


5This  is  done  by  selecting  the  NODl./LRO  NOD  file  supplied  with  the  nnuiei 
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The  clock  is  set  to  zero  and  the  model  run  for  live  years,  stopping  every  two 
quarters  to  determine  the  changes  to  the  stocks  at  each  node,  hive  years  is  chosen  to 
examine  the  effects  of  the  Reorganization  Act  betore  the  system  has  a  chance  to  reach, 
steady  state  again  (i.e.  short  term  effects i  By  looking  at  the  stocks  two  quarters  at  a 
time,  the  analyst  can  see  any  trends  developing. 

After  running  the  model  two  quarters  at  a  time  to  1  is c  rears,  it  is  then  run  to  '«• 
years,  live  sears  at  a  time,  to  determine  the  long  term  elicits  of  the  Reorganization 
Act. 

The  model  provides  that  if  any  limits  are  violated  during  the  simulation,  a 
warning  is  issued  and  the  analyst  may: 

1.  abort  the  simulation  and  return  to  the  selection  menu; 

2.  ignore  the  limits  and  continue  the  simulation;  or 

3.  back  up  one  quarter  and  continue  the  simulation  with  alterations. 

High  and  lo  limits  are  set  at  plus  and  minus  10  percent  of  the  beginning  stocks  at 
each  node  respectively.  Violations  of  these  limits  provide  the  analyst  with  a  warning 
that  a  significant  change  is  taking  place  and  focus  mention  on  the  activities  mid  tours 
where  change  is  occuring.  When  the  simulation  is  complete,  the  steady  s’ate  stocks  are 
compared  with  the  stocks  at  the  time  the  warning  was  issued  to  determine  any  trends. 

Tor  this  analysis,  the  point  at  which  a  violation  occurs  is  noted  and  the  second 
option  is  chosen.  For  the  node  at  which  the  limit  violation  occurs,  this  results  ;n  the 
high  limit  being  set  to  its  maximum  value  (9999)  or  the  low  limit  being  set  to  its 
minimum  value  (0). 

B.  DATA 

The  data  necessary  to  create  the  transfer  percentage  tiles  were  obtained  from 
conversations  with  the  Surface  Warfare  Community  Manager  <OP-13oEl  i,  from 
various  policy  statements  in  the  Perspective  newsletter  published  by  the  Naval  Military 
Personnel  Command  (NMPC—lolD)  and  from  the  Department  cl  Deleave 
Reorganization  Act.  The  Mainstream  transfer  percentages  and  stocks  created  lor  use 
in  this  analysis  can  be  found  in  Appendices  B  and  C. 

C.  ALTERNATIVES 

The  alternative  career  paths  chosen  lor  investigation  in  this  analysis  are  as  follows. 

1.  the  Mainstream  career  path. 
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2.  the  Early  Department  Head  career  path,  and 
?.  the  Single  Department  Head  Tour  career  path. 

Each  of  these  alternatives  is  discussed  in  detail  in  the  next  chapter. 
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IV.  ANALYSIS 


A.  INTRODUCTION 

The  arrangement  and  sequence  of  the  Joint  Education  and  Joint  Duty  tours  in 
the  career  paths  presented  here  are  such  that,  with  the  exception  of  two  Shore  tours, 
only  Joint  Duty,  Fleet  Unit,  and  Alloat  Staff  tours  are  significantly  affected  by  the 
Goldwater-Nichols  Act.  The  following  discussion  will  therefore  concentrate  on  Joint 
Duty,  Fleet  Unit,  and  Afloat  StalT  tours.  Presentation  of  the  three  career  paths 
investigated  will  be  in  the  following  format: 

1.  Introduction  of  the  career  path  analyzed: 

2.  Discussion  of  the  advantages  and  disadvantages  of  the  career  path; 

3.  Discussion  of  the  procedures  for  implementing  the  career  path  and  the 
requirements  of  the  Reorganization  Act  in  the  SWOPATH  model;  and 

4.  Discussion  of  the  short  term  and  long  term  trends  resulting  from  the  simulation. 

B.  THE  MAINSTREAM  CAREER  PATH 

1.  Introduction 

The  Mainstream  career  path  depicted  in  Figure  4.1  is  actually  a  collection  of 
the  various  sequences  of  assignments  by  which  the  majority  of  Surface  Warfare 
Ollicers  reach  Major  Command  in  their  twelfth  tour.  It  takes  into  account  the 
dynamic  nature  of  career  paths,  but  is  not  intended  to  represent  every  possible 
combination  of  assignments  which  can  lead  to  Major  Command.  It  emphasizes  the 
essential  operational  sea  tours  and  subspecialty  development  discussed  previously  and 
includes  the  following  features: 

1.  an  initial  Department  Head  tour  of  18  months  followed  by  a  split  Department 
Head  tour  of  18  months; 

2.  the  split  Department  Head  tour  splits  officers  SO  20  percent  between  Fleet  Unit 
and  Afloat  Staff;  and 

3.  ”0° o  of  the  officers  serving  a  complex  I.CDR  sea  tour  (Battle  Group  stall';  BB. 
CV.  LHA.  LPH  Department  Head,  LCDR  Command). 

2.  Advantages  and  Disadvantages 

The  principal  advantage  of  the  Mainstream  career  path  is  that  it  has  been 
successful,  for  the  most  part,  in  matching  an  officer  having  the  correct  seniority  and 
experience  with  an  appropriate  assignment  at  each  point  in  his  career.  It  lias  aiso 


provided  the  correct  sea  shore  rotation  and  variety  of  assignments  to  benefit  morale 
and  retention  while  maintaining  the  emphasis  on  sea  duty  assignments. 

The  principal  disadvantage  of  the  Mainstream  career  path  is  its  inflexibility. 


The  primacy  of  sea  duty  assignments,  more  specifically  the  fact  that  they  occur  at  very 
narrowly  defined  points  in  the  career  path,  and  the  bottle  neck  which  occurs  at  the 
Surface  Warfare  Officer's  School  (SWOS)  Department  Head  course  (tour  3A  i  are  the 
principal  contributors  to  the  inflexibility. 


This  is  not  to  argue  that  the  Mainstream  career  path  should  be  eliminated. 
The  past  20  years  have  proven  that,  for  the  most  part,  this  career  path  has  produced 
officers  with  the  right  experience  at  the  right  time  in  their  careers.  I  he  inflexibility  of 
this  career  path  does,  however,  make  the  SWO  community  susceptible  to  grace  creep 
during  times  of  lower  accessions,  higher  attrition  and  or  policy  change. 

Grade  creep  occurs  when  a  billet  is  filled  by  an  officer  more  senior  than  the 
billet  requires.6  This  occurs  if  the  pool  of  eligible  relief  officers  for  a  particular  type  of 
billet  is  reduced  in  size  or  the  officers  are  delayed  by  any  of  the  above  three  conditions. 
Under  such  circumstances,  the  officers  currently  filling  those  billets  are  extended, 
thereby  becoming  more  senior.  In  the  mean  time,  the  officers  relieving  sucii  officers 
also  become  more  senior  than  required  for  the  billets.  If  grade  creep  begins  in  the 
earlier  tours  of  the  career  path,  it  ripples  through  the  community.  If  it  begins  in  the 
later  tours  of  the  career  path,  the  ell  cm  is  more  localized.  The  long  term  effect  of' 
grade  creep  is  either  to  produce  officers  with  sufficient  time  in  service  for  promotion 
but  without  the  requisite  experience,  or  'imply  to  age  the  community.  To  age  the 
community  means  to  increase  the  senior::-.  .  1  officers  filling  its  billets. 

A  recent  example  of  grade  creep  xcurred  in  the  SWO  community  in  the  case 
of  at  sea  Department  Heads.  T  radium. fib  these  officers  are  mid  to  senior  grade 
Lieutenants.  As  the  result  of  a  pern. a  e:  m. filer  year  groups  of  officers  and  a  pohey 
change  strengthening  the  criteria  :■  r  i. mce  at  the  SWOS  Department  Head 
course.  Department  Heads  have,  m  . e  •.  become  senior-grade  Lieutenants  to 

mid-grade  Lieutenant  Commanders 
3.  Implementation 

The  steady  state  stocks,  to:.-  .  d  transfer  percentage  data  files  lor  the 

M  ainstream  career  path  are  created  .  .d  preciously  in  the  methodology  chapter 

of  this  thesis. 

b\Iygas  called  this 'down  detail.:..-  ‘  p.  2”). 
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In  order  to  simulate  the  requirements  of  the  DOD  Reorganization  Aa  the 
following  changes  are  affected  on  the  input  data  tiles: 

1.  mainstream  transfer  percentages  in  the  MNS TR.M30.ARD  data  file  aliened  b> 
the  Act  are  changed  to  those  given  in  Table  2; 

2.  mainstream  tour  lengths  in  the  MNS TRM3U.LED  data  file  are  changed  to 
those  given  in  Table  3; 

3.  default  high  and  low  limits  are  changed  to  reflect  plus  and  minus  1' of  tne 
MNSTRM3U.NOD  stocks. 


TABLL 2 

CHANGES  TO  MAINSTREAM  TRANSFER  PERCENTAGES 
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TABLE  3 

CHANGES  TO  MAINSTREAM  TOE  R  LENGTHS 


Tour 

Length  (quarters) 

Old  New 

~D 

8 

10 

l'*D 

8 

12 

1 2D 

10  12 

-X 


4.  Results 


The  most  dramatic  change  that  the  Goldwater-Nichols  Act  makes  is  the 
requirement  that  50%  of  o Ulcers  graduating  from  joint  education  institutions  mu-t 
serve  an  immediate  follow-on  joint  duty  assignment,  f  or  the  sequence  of  tours  and  the 
transfer  percentages  used  in  the  Mainstream  career  path,  tins  increased  emphasis  on 
joint  duty  assignments  results  in  the  shifting  of  30’ more  of  the  officers  leasme  a  joint 
education  institution  away  from  Fleet  Unit  and  Alloat  Stall"  tours  and  towards  Joint 
Duty  tours.  Therefore,  those  tours  receiving  direct  input  from  Joint  Education  tours 
are  the  ones  most  affected  by  the  Act.  Subsequently,  those  tours  receiving  direct  input 
from  Joint  Duty  tours  also  experience  change.  For  the  Mainstream  career  path,  the 
elfect  of  this  shift  in  emphasis  is  grade  creep  in  tour  11F  tCDR  command,  post- 
commund  sea  duty).  This  result  is  discussed  in  the  following  sections. 
a.  Short  Term 

The  major  trend  in  the  short  term  simulation  is  the  rapid  and  pronounced 
increase  in  the  stocks  of  officers  in  the  T1^1.  101*1  and  121^  tour  Joint  Duty  tours  (tours 
~D.  ffiD  and  1 2D ).  By  the  fifth  year  of  the  simulation,  the  stocks  at  tours  ~D  and  10D 
increase  200%  and  350%  above  initial  stocks  respectively,  and  settle  down  to  a  new 
steady  state  at  these  levels.  The  stocks  at  tour  12D  increase  16%  by  the  5tn  year  of 
the  simulation.  This  is  depicted  graphically  in  Figure  4.2  . 

The  stocks  of  officers  in  the  61-'1  and  tour  Joint  Duty  assignments  remain  reiatr-elv 
constant  because  they  are  direct  inputs  from  the  fleet  and  bvpass  a  Joint  Education 
tour. 

Figure  4.3  shows  that  the  stocks  of  officers  at  the  l'A1  and  ll1*1  tour  Fleet 
Unit  assignments  (tours  10E  and  HE)  also  change  noticeably  in  the  short  term.  By  the 
yth  year  of  the  simulation,  the  shift  toward  Joint  Duty  assignments  results  m  a  n ' 
decline  in  the  stocks  at  10E  (CDR  command). 

The  shift,  in  combination  with  a  two  quarter  increase  in  the  length  of  Joint 
Duty  tour  10D,  results  in  the  noticeable  dip  in  stocks  at  tour  11E  (CDR  command. 
CDR  XO,  CDR  Dept.  Hd.,  CDR  stall)  followed  by  a  rapid  increase.  This  occurs 
because  instantaneously  increasing  the  tour  length  at  Joint  Duty  tour  loD.  from  eight 
to  twelve  quarters,  creates  a  four  quarter  period,  eight  quarters  later,  in  which  no 
officer  is  transfered  from  Joint  Duty  tour  1UD  to  Fleet  Unit  tour  11E  (see  the 
discussion  o!  transfers  in  section  B  of  Chapter  II).  After  the  four  quarter  gap.  the 
number  of  officers  transfered  from  tour  1<»D  to  tour  HE  increases  as  a  resu.t  of  the 
increase  in  officers  assigned  to  Joint  Dutv  billets  discussed  above. 
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Figure  4.2  Joint  Duty  trends  in  the  Mainstream  career  path. 

Superimposed  on  this  trend  is  the  decline  in  stocks  at  tour  10E  discussed 
above.  Because  tour  10E  is  nine  quarters  long,  the  effects  of  this  decline  are  first 
observed  at  tour  HE  after  nine  quarters. 

As  shown  in  Figure  4.3,  after  twelve  quarters,  the  increase  in  transfers  from 
tour  10D  out-paces  the  decrease  in  transfers  from  tour  10E  and  results  in  a  rapid 
increase  in  stocks  at  tour  11E.  The  overall  increase  at  tour  HE  is  25%  by  the  51*1  year 
of  the  simulation. 

Stocks  at  Fleet  Unit  tour  12E  (Major  command,  ship)  decline  4%  by  the 
51*1  year  of  the  simulation. 

The  changes  in  stocks  of  olficers  at  the  10^  and  ll1^  tour  Afloat  Staff 
assignments  (tours  10F  and  HF)  are  less  dramatic:  6%  and  5%  declines  respectively. 
The  fact  that  stocks  in  tour  11F  do  not  increase  as  in  tour  HE  can  be  attributed  to  the 
fact  that  11 F  does  not  receive  input  from  a  Joint  Duty  tour  and  is  therefore  affected 
only  by  the  decrease  in  stocks  at  tour  1UE  its  only  source  of  input  (see  Figure  4.1), 
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Figure  4.3  Fleet  Unit  trends  in  the  Mainstream  career  path. 


b.  Long  Term 

The  stocks  of  officers  at  Joint  Duty  tours  7D  and  10D  continue  at  the 
steady  state  levels  achieved  by  the  year  of  the  simulation.  The  stocks  at  Joint  Duty 
tour  12D  increase  an  additional  42%  to  reach  a  steady  state  level  53%  above  initial 
stocks  by  the  10^  year  of  the  simulation  (see  Figure  4.2). 

While  the  stocks  at  Fleet  Unit  tour  10  (CDR  command)  continue  at  the 
level  achieved  by  the  year  of  the  simulation,  the  stocks  at  Fleet  Unit  tour  HE 
{CDR  command,  post-command  sea  duty)  continue  to  increase  to  achieve  steady  state 
30%  above  initial  stocks  by  the  20  >ear  oi  the  simulation  (see  Figure  4.3 1. 

The  crossing  of  the  graphs  in  Figure  4.3  indicates  a  shift  in  CDR 
commands  from  the  10^  to  the  ll'*1  tour.  This  shift  is  indicative  of  grade  creep  in 
CDR  command  billets. 
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The  increase  in  stocks  at  tour  HE  is  not  due  to  an  increase  in  post¬ 
command  stocks.  CDR  command  is  a  prerequisite  for  the  post-command  billets  at 
tour  11E.  and  the  only  source  of  officers  to  fill  post-command  billets  is  Fleet  Unit  tour 
luE  (see  Figure  4.1).  The  effect  of  the  Reorganization  Act  requirements  is  to  reduce 
the  stocks  at  tour  10E  and  therefore  the  stocks  of  available  reliefs  for  the  post- 
command  billets  at  tour  1 1 E. 

At  the  same  time,  officers  shifted  away  from  command  billets  at  tour  10E 
are  delayed  in  serving  in  a  command  billet  until  tour  11E.  This  shift  has  the  effect  of 
aging  the  community;  i.e.  increasing  the  seniority  of  officers  at  their  first  opportunity 
to  command. 

C.  THE  EARLY  DEPARTMENT  HEAD  CAREER  PATH 

1.  Introduction 

Both  Howe  [Ref.  5:  p.  99]  and  Mygas  [Ref.  p.  21]  present  an  Early 
Department  Head  career  path.  An  updated  variation  of  this  career  path  is  investigated 
here  with  respect  to  the  effects  of  the  DOD  Reorganization  Act. 

The  Early  Department  Head  career  path  shown  in  Figure  4.4  is  a  modification 
of  the  Mainstream  career  path  shown  in  Figure  4.1  and  reflects  current  policy 
regarding  this  career  path.  The  differences  between  the  Early  Department  Head  career 
path  and  the  Mainstream  career  path  are  highlighted  by  bold  lines  in  Figure  4.4. 

The  essential  element  of  the  Early  Department  Head  career  path  is  the 
officer  s  attendance  at  the  SWOS  Department  Head  course  immediately  following  his 
initial  sea  tour  (tour  2A)  and  results  in  the  officer  serving  his  first  Department  Head 
tour  (tour  3E)  one  tour  earlier  than  those  officers  following  the  Mainstream  career 
path. 

Important  assumptions  reflected  in  the  career  path  shown  in  Figure  4.4  are 
that  officers  following  this  path: 

1.  serve  two  Department  Head  tours  (3E  and  4E  F); 

2.  attend  either  the  Naval  Postgraduate  School  or  the  Armed  Forces  Staff  College 
(tours  5B  or  5C)  following  their  Department  Head  tours;  and 

3.  rejoin  the  Mainstream  career  path  in  their  tour. 

For  this  analysis,  it  is  assumed  that  2<>°o  of  officers  completing  their  first  Diusion 
Officer  tour  (IE)  follow  this  path. 
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2.  Advantages  and  Disadvantages 

The  main  advantage  of  this  career  path  is  that  it  introduces  the  qualified 
young  officer  to  Department  Head  billets  early  enough  in  his  career  to  allow  him  to 
complete  both  tours  (3E  and  4E  F)  while  still  a  Lieutenant.  This,  in  effect,  counters 
the  grade  creep  in  Department  Head  billets  discussed  above.  [Ref.  7:  pp.  24-2") 

An  additional  advantage  of  this  career  path  is  the  earlier  opportunity  for  the 
post  Department  Head  officer  to  attend  the  Naval  Postgraduate  School  ttour  5B». 
This  in  turn  allows  an  immediate  follow-on  utilization  tour  (tour  6G)  [Ref.  7:  p.  2S|.  It 
can  be  seen  in  Figure  4.1  that  in  the  Mainstream  career  path,  the  post  Department 
Head  graduate  of  the  Naval  Postgraduate  School  is  delayed  in  serving  a  utilization  tour 
until  his  9^  tour  (9G)  because  of  the  required  sea  duty  at  tours  7E  F  and  SE  F. 

Yet  another  advantage  of  the  Early  Department  Head  career  path  is  the 
earlier  opportunity  for  the  post  Department  Head  officer  to  attend  the  Armed  Forces 
Staff  College  (tour  5C).  A  subsequent  assignment  to  Joint  Duty  (tour  6D>  qualifies 
this  officer  as  a  JSPEC  and  then  reintroduces  him  into  the  Mainstream  career  path  on 
time  for  a  Complex  LCDR  or  Executive  Officer  tour  (7E  F). 

The  main  disadvantage  of  the  Early  Department  Head  career  path  is  its 
interruption  of  the  sea  shore  rotation  and  the  effect  that  might  have  on  retention.  It 
can  be  seen  in  Figure  4.4  that,  with  the  exception  of  6  months  ashore  at  the  SWOS 
Department  Head  course  (tour  2A),  the  officer  following  this  career  path  serves  the 
first  6  years  of  his  career  at  sea.  [Ref.  7;  p.  29| 

3.  Implementation 

To  simulate  the  Early  Department  Head  career  path  in  the  SWOPATH  model 
the  following  changes  are  affected  to  the  input  data  files: 

1.  select  the  MNSTRM30.NOD  steady  state  stocks  data  file  created  for  the 
Mainstream  career  path. 

2.  mainstream  transfer  percentage'  in  the  MNSTRM30.ARD  data  file  affected  by 
the  Act  are  changed  to  those  gi\en  m  fable  4: 

3.  mainstream  tour  lengths  in  the  \| \$  rRM30.LED  data  file  are  changed  to 
those  given  in  Table  5; 

4.  run  the  model  to  30  years  and  ».i\e  v.e  steady  state  stocks,  transfer  percentages, 
and  tour  length  data  to  lif'  named  EDH30.NOD.  EDH30.ARD.  and 
EDM 30. LED  respectively. 

To  analyze  the  effects  of  the  DOI)  Re  rgemzation  Act  on  this  career  path  the 
following  actions  are  taken  in  the  SVA  )!’  \  i  1 1  model: 

1.  select  the  EDH30.NOD  liie. 
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CHANGES  TO  MAINSTREAM  TRANSFER  PERCENTAGES 
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2.  make  changes  to  the  default  high  and  low  limit  data  files  to  reflect  plus  and 
minus  10°  o  of  the  EDH30.NOD  stocks. 

3.  make  the  changes  listed  in  Table  b  to  the  EDH30.ARD  transfer  percentage  tile. 

4.  make  the  changes  listed  in  Table  7  to  the  EDH30.LED  tour  length  file. 

5.  run  the  SWOPATH  model  as  described  in  the  methodology  section. 

4.  Results 

The  Early  Department  Head  career  path  is  a  sanation  of  the  Mainstream 
career  path  and  is.  in  fact,  identical  to  the  Mainstream  career  path  alter  the  b'*'  tour. 
The  same  trends  observed  in  the  analysis  of  the  Mainstream  career  path  are  therefore 
observed  in  the  analysis  of  the  Early  Department  Head  career  path,.  Hie  same  siult  m 
stocks  at  tours  10E  and  1  IE  occurs  but  to  a  lesser  extent. 


TABLE  5 

CHANGES  TO  MAINSTREAM  TOl'R  LENGTHS 
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Stocks  at  tours  “D  and  1<'D  increase  13S'N  and  U4  ".,  respect!'. cic .  less 
than  in  the  Mainstream  career  path.  Steads  state  stocks  are  achieved  for  these  two 
tours  by  the  2n^  year  of  the  simulate:'.,  one  sear  earlier  than  for  the  Mainstream 
career  path.  The  stocks  at  tour  121)  increase  5""»  by  the  51*1  sear  of  the  simulation. 

F  igure  4.6  shows  the  trend'  :n  -tacks  at  the  In1*1  and  1 1 tour  I  ieet  l  i .it 
assignments  (tours  UE  and  llEi.  Once  again,  there  is  a  shift  in  stocks  from  tour  loE 
to  tour  HE  with  a  2SM>  increase  m  -tucks  at  tour  HE  by  the  51*1  ye-r  cf  the 
simulation. 

The  change  in  stocks  at  \ : ;t  'stall'  tours  luE  and  111'  is  aga.n  less 
dramatic;  4’..  and  "’■>  respectively. 

b.  Loin ;  Term 

F  igure  4.5  shows  that  the  -•  of  oilicers  at  Joint  Duty  tours  "D  and 
1"D  continue  at  the  steady  state  le.-.'  ..ced  by  the  2nJ  year  of  the  simulation. 
I  he  stocks  at  Joint  F)uty  tour  121)  .e  -o  increase  until  the  l"tn  year  o:  ti.e 

simulation  when  they  achieve  stead-  -  2  move  initial  stocks. 

Figure  4.0  shows  that  C  :  .•  n  th  tour  1«»E  and  tour  HE  -.ont.nue  at 

steads  state  levels  achieved  by  the  '  ..  simulation. 

D.  THE  SINGLE  DEPARTMEM  111  l»  MU  R  CAREER  PATH 
1  Introduction 

I  he  Single  Department  1!  .  cr  path  is  yet  another  vanati.  ;i  o;  ti.e 

Mainstream  career  path,  fhc  bn.u  ;;e  4."  show  that  it  deviates  :r.  -;,e 

Mainstream  career  path  in  having  nth  Department  Head  a-signment  at 


Figure  4.5  Joint  Duty  trends  in  the  Early  Dept.  Hd.  career  path. 
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Figure  4.6  Fleet  Unit  trends  in  the  Early  Dept.  Hd.  career  path. 

tour  4E,  followed  by  a  5^  tour  assignment  at  either  the  Naval  Postgraduate  School 
(tour  5B)  or  the  Armed  Forces  Staff  College  (tour  5C). 

The  officer  following  this  career  path  rejoins  the  Mainstream  career  path  in  his  6tn 
tour  in  either  a  joint  duty  (tour  6D)  assignment  or  a  shore  duty  assignment  (tour  6Gi. 
Thirty  percent  of  the  officers  graduating  from  the  SWOS  Department  Head  course 
follow  this  path. 

2.  Advantages  and  Disadvantages 

The  main  advantage  of  this  career  path  is  the  fact  that,  like  the  Early 
Department  Head  career  path,  it  counters  the  grade  creep  currently  experienced  in 
Department  Head  billets  without  deviating  radically  from  the  Mainstream  career  path. 

As  in  the  Early  Department  Head  tour,  an  officer  following  this  career  path 
has  the  opportunity  to  achieve  a  subspecialty  or  to  qualify  as  a  JSPEC  and  to  rejoin 
the  Mainstream  career  path  by  his  61^  tour. 


The  main  disadvantage  of  this  career  path  is  the  length  of  time  between  sea 
tours  4E  and  7E.  In  the  Mainstream  career  path  an  officer  spends  2  to  2.5  years 
between  his  second  Department  Head  tour  and  his  complex  LCDR  or  XO  tour.  In 
the  Single  Department  Head  Tour  career  path,  an  ollicer  can  spend  as  much  as  4  years 
between  his  Department  Head  tour  (4F)  and  his  next  sea  duty  tour  (TEl. 

Another  disadvantage  of  this  career  path  concerns  subspecialty  utilization  and 
designation  as  a  JSPEC.  'I  he  ollicer  following  this  path  and  attending  Naval 
Postgraduate  School  (NTS)  at  tour  2B  would  then  attend  the  Armed  Forces  Staff 
College  at  tour  5C.  If  this  ollicer  then  goes  on  to  an  immediate  follow-on  Joint  Duty 
tour,  the  first  opportunity  for  him  to  serve  in  a  subspecialty  utilization  tour  is  tour  9G. 
up  to  14  years  after  attending  the  Naval  Postgraduate  School.  On  the  other  hand,  if 
the  ollicer  following  this  career  path  is  detailed  to  a  utilization  tour  (6G)  following  the 
Armed  Forces  Staff  College  (and  a  Joint  Duty  tour  later  in  his  career),  he  cannot  be 
designated  as  a  JSPEC  because  Joint  Education  and  Joint  Duty  must  be  sequential  for 
designation.  One  solution  to  this  problem  is  not  to  detail  oil  leers  who  attend  NPS  in 
their  2n^  tour  to  the  Single  Department  Head  career  path. 

3.  Implementation 

Simulating  the  Single  Department  Head  Tour  career  path  in  the  SW'OPATH 
model  presents  a  problem.  The  Department  Head  tour  at  4E  is  common  to  both  this 
career  path  and  the  Mainstream  career  path  but  the  tour  length  is  different  for  the  two 
career  paths.  The  SWOPATH  model  cannot  accommodate  two  tour  lengths  at  a  node 
simultaneously.  The  solution  to  this  problem  is  shown  in  Figure  4.S  . 

The  30%  of  the  officers  who  serve  a  single  Department  Head  tour  follow  the  path 
highlighted  with  bold  lines.  Tour  4E  represents  the  single  Department  Head  tour  and 
has  a  tour  length  of  10  quarters. 

The  70° b  of  the  officers  who  follow  the  Mainstream  career  path  are  diverted 
to  the  unused  node  at  4A,  marked  'Dummy'  in  Figure  4.8  This  node  represents  their 
first  Department  Head  tour  and  has  a  tour  length  of  six  quarters.  The  olficers  thus 
diverted,  rejoin  the  Mainstream  career  path  at  tour  live  with  no  actual  change  in  their 
progression.  In  this  manner,  the  career  path  shown  in  Figure  4."  can  be  investigated 
using  the  SWOPATH  model. 

To  simulate  the  Single  Department  Head  1  our  career  path  perform  the 
following  tasks: 

Tours  5E  and  ~E  in  Figure  4.1 


mailing  the  Single  Dept.  Ild.  l  our  career  path. 


1.  select  the  MNSTRM3U.NOD  steady  state  stocks  data  file  created  for  the 
Mainstream  career  path; 

2.  make  the  changes  listed  in  Table  S  to  the  MNSTR.M3n.ARD  :r..n  icr 
percentages  data  tile; 

3.  make  the  changes  listed  in  Table  9  to  the  MNSTR.M3u.LED  tour  length  data 
tile:  and 

4.  run  the  model  to  3<>  years  and  save  the  stead;,  state  stocks,  transter  pc:ue:. tagev 
and  tour  length  data  to  tiles  named  SDH3U.NOD.  SDH3u. AR.D.  and 
SDH30.I.ED  respectively. 
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)m  tour; 

To  tour: 

Old 

New 

3  A 

4  A 

0 

-() 

3  A 

4E 

luu 

3<i 

4.\ 

5E 

0 

4  A 

5F 

(1 

id 

4  A 

511 

1) 

> 

4E 

5B 

1) 

"N  ^ 

4E 

5C 

II 

4«! 

4E 

51: 

-(> 

( ) 

4E 

5F 

19 

l  i 

5B 

6(4 

<1 

1  *  M  1 

5C 

(>D 

(i 

2" 

5C 

oG 

u 

V  I 

To  analyze  the  effects  of  the  DOD  Reorganization  Act  on  this  career  path: 

1.  select  the  SDH30.NOD  tile. 

2.  make  changes  to  the  default  high  and  low  limit  data  tiles  to  retlect  pin-  and 
minus  10"  ■>  of  the  SDH3U.NOD  stocks. 

3.  make  the  changes  listed  in  'fable  0  to  the  SDH3M.ARD  transter  percent  ige  die 

4.  make  the  changes  listed  in  Table  ~  to  the  SDH30.LLD  four  length,  ; ; iC . 

5.  run  the  SWOPATH  model  as  described  in  the  methodology  section. 

4.  Results 

This  career  path  is  a  less  radical  departure  from  the  Mainstream  career  ; 
and  the  effects  of  the  DOD  Reorganization  Act  fall  between  those  observed  be. 
Mainstream  and  Early  Department  Head  career  paths,  tirade  creep  ;a  the  <  DR 
command  billets  at  tours  PTI  and  1  111  occur  in  this  career  path  also. 


'  It’S 


TABLE  9 

CHANGES  TO  MAINSTREAM  TOL'R  LENGTHS 


Length  (quarters) 


TABLE  10 

CHANGES  TO  SINGLE  DEFT.  HD.  TOUR  TRANSFER  PERCENTAGES 


From  tour: 


To  tour: 


a.  Short  Term 

Figure  4.9  shows  the  same  p  ;f.e:n  ''(  rapid  intrease  of  stocks  in  Joint  Duty 
tours  6D,  7D,  10D,  and  12D  followed  leveling  off  at  the  2  to  2.5  year  point. 


The  stocks  of  officers  at  tour  6D  mere 


'  by  the  3ra  year  of  the  simulation.  This 
n  tour  5C  which  was  not  a  factor  in  the 


is  due  to  the  input  from  the  Joint  1  c...  .t:  n  tour  5C  which  was  not  a  factor  in  tin 
Mainstream  career  path.  The  stock--  at  tmus  ~D  and  10D  increase  219%  and  213 '■ 

r  1 

respectively  by  the  3  year  of  the  simuk.ti. :;. 


TABLE:  1 1 

CHANGES  TO  SINGLE  DEPT.  I  ID  IOLRTOLR  LENGTHS 


Tour 

Length  (quarters 

6D 

S  10 

TD 

S  10 

loD 

S  12 

12D 

lo  12 

Figure  4. 10  shows  the  trends  in  Fleet  Unit  stocks  at  tours  "E.  1 U L .  and 
1 1 E .  The  stocks  at  7E  show  an  8%  decline  by  the  third  year  then  rise  rapidly  to  settle 
out  2°  o  below  initial  stocks  by  the  year  of  the  simulation.  The  dip  in  stocks  at 
tour  7E  is  again  the  result  of  shifting  emphasis  toward  Joint  Duty  assignments  and  is 
indicative  of  the  system  finding  a  new  equilibrium  after  simulation  of  the 
Reorganization  Act  requirements.  The  same  pattern  exhibited  in  the  Mainstream 
career  path,  indicative  of  grade  creep,  is  seen  in  tours  10E  and  HE  with  stocks  at  tour 
HE  reaching  2i%  above  initial  stocks  by  the  year  of  the  simulation. 

Stocks  at  the  Afloat  StalT  tours  7F.  8F.  and  10F  again  show  moderate 
declines  of  3%.  5%.  and  5%  respectively. 
b.  Long  Term 

Figure  4.9  shows  that  only  tour  12D  stocks  have  not  reached  steady  'tale 
by  the  year  of  the  simulation.  'l  our  12D  stocks  achieve  steady  state  by  the  2'h^ 
year. 

Figure  4.10  shows  that  stocks  at  tours  7E.  !0E.  and  HE  reach  steady  state 
by  the  15^  year  of  the  simulation. 
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Figure  4.9  Joint  Duty  Trends  in  the  Single  Dept.  Hd.  Career  Path. 
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V.  SUMMARY,  CONCLUSIONS,  AND  RECOMMENDATIONS 

A.  SUMMARY 

This  study  has  reviewed  the  joint  officer  management  policies  mandated  by  the 
Goldwater-Nichols  Department  of  Defense  Reorganization  Act  and  has  analyzed  the 
effects  of  those  policies  on  Surface  Warfare  Officer  career  paths.  The  focus  of  the 
study  has  been  to  answer  the  following  questions: 

1.  Can  the  balance  between  joint  education  and  experience  and  SWO  education 
and  experience  be  achieved? 

2.  What  are  the  short  term  and  long  term  effects  on  SWO  career  paths  of 
satisfying  the  statutory  requirements  of  the  Goldwater-Nichols  Act.  with  or 
without  a  balance? 

3.  What  changes  to  SWO  career  paths,  if  any,  are  necessary  possible  to  achieve 
the  balance? 

The  analysis  was  conducted  using  the  SWOPATH  model  to  simulate  three  Surface 
Warfare  Officer  career  paths. 

B.  CONCLUSIONS 

In  all  three  career  paths  studied,  a  balance  is  achieved  between  joint  education 
and  experience  and  SWO  education  and  experience  but  at  a  cost. 

With  the  sequence  of  tours  investigated  in  this  study,  the  effect  of  the  Goidwater- 
Nichols  Act  is  concentrated  in  Joint  Duty,  Fleet  Unit,  and  Afloat  Staff  stocks  of  tours 
following  a  Joint  Education  tour.  A  30%  increase  in  the  transfer  percentage  from 
Joint  Education  to  Joint  Duty  tours  results  in  a  slight  decline  in  the  stocks  of  officers 
assigned  to  Fleet  Unit  or  Afloat  StalT  tours  immediately  following  a  Joint  Education 
tour.  It  also  results  in  a  significant  increase  in  the  stocks  of  officers  assigned  to  Joint 
Duty  following  a  Joint  Education  tour.  This  shift  achieves  the  goal  of  increasing  the 
joint  education  and  experience  of  officers  but  has  the  disadvantage  of  introducing  grade 
creep  at  the  CDR  grade  Fleet  Unit  tours.  Specifically,  those  CDR  s  who  would 
otherwise  serve  a  CDR  command  tour  are  delayed  from  doing  so  while  assigned  to 
Joint  Duty.  Therefore,  a  new  balance  is  achieved  but  at  the  cost  of  a  significant  shift 
towards  Joint  Duty  tours  and  the  resulting  grade  creep  in  CDR  command  billets. 


I 


C.  RECOMMENDATIONS 


Additional  study  of  this  topic  could  be  done  by  focusing  on  a  solution  tc  the 
grade  creep  found  here.  Tins  should  involve  investigations  of  alternatives  to  the  mid- 
grade  to  senior-grade  portion  to  the  SWO  career  path. 

Further  study  should  also  be  conducted  to  investigate  the  ellect-  of  aioreusuu: 
Joint  Education  opportunities,  either  by  increasing  quotas  to  the  college's  of  the 
National  Defense  University  or  by  qualifying  the  Service  Colleges  as  Joint  Educator, 
institutions. 

If  the  SWOPATH  model  is  to  be  used  for  further  anahsis,  more  accurate  base 
line  data  for  stocks,  transfer  percentages,  and  tour  lengths  should  be  developed  from 
the  information  contained  m  the  Officer  Master  File  (OMF). 

The  current  version  of  the  SWOPATH  model  includes  a  separate  program 
(UPDATE)  for  updating  the  stocks  data  files.  The  UPDATE  program  has  the 
advantage  of  working  directly  on  the  stocks  data  files  without  going  through  the 
SWOPATH  model  and  its  change  menu.  The  output  of  the  UPDATE  program  can 
then  be  read  by  the  SWOPATH  model.  The  UPDATE  program  should  be  modified  to 
allow  updating  of  the  transfer  percentages,  tour  length,  and  high  and  low  limit  data 
files  as  well  as  the  stocks  files. 

Ultimately,  if  it  is  envisioned  that  the  SWOPATH  model  will  be  used  exteustvei;.. 
the  possibility  of  rewriting  it  using  spreadsheet  software  should  be  pursued. 
Spreadsheet  software  would  have  two  advantages  over  the  current  version  v.f  the 
model.  First,  spreadsheet  software  would  allow  easier  expansion  of  the  network  than  is 
possible  in  the  current  SWOPATH  model  and  therefore  make  the  model  more 
responsive  to  changing  analytical  requirements.  Second  and  finally,  spreadsheet 
software  would  allow  the  SWOPATH  model  to  be  integrated  with  Data  ID.se 
Management  (DBM)  and  graphics  software  to  provide  a  powerful  decision  support  tool 
for  the  manpower  analyst. 


APPENDIX  A 

FLOW  CHART  OF  CALCULATIONS 

The  chart  shown  in  1'igure  A  1  diagrams  the  logical  Mow  ot  the  «.uLuu 
discussed  in  Section  B  of  Chapter  II.  It  is  intended  to  provide  a  general  idea  i 
calculations  performed  with  each  iteration  of  the  simulations,  for  the  source 
from  which  the  Mow  chart  was  demed.  see  Appendix  G. 
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Figure  A.  I  SWOPATH  Calculations. 


L 


V*' 

$ 


i 

ft 

US 

ft 

yJSI 

>vi 

Sf 

h 

i 

a 

uV 
fcV 

$ 

wV 

i 

?xr 

Si 


v, 


>1 

& 


/-■ 


APPENDIX  B 

MAINSTREAM  CAREER  PATH  TRANSFER  PERCENTAGES 


TABLE  i: 

MAINSTREAM  TRANSFER  PERCENTAGES 


ARC 

% 

ARC 

"  0 

ARC 

a) 

IEE 

■»s 

'DE 

100 

1 1  BE 

42 

1  El 

10 

TEE 

50 

1 1  BE 

'< > 

1  LG 

30 

"EF 

48 

11BG 

28 

IEH 

25 

TEH 

02 

!  1CD 

15 

~FE 

9X 

1  ICE 

32 

TFH 

02 

1 1CF 

28 

2BA 

100 

1  ICG 

25 

2EA 

5o 

8EB 

15 

11  ED 

51  > 

2EH 

5o 

SEC 

10 

1 1EG 

50 

2  FA 

5o 

SED 

10 

1 1  FE 

8(1 

2FH 

50 

8  EG 

60 

11FF 

10 

2GA 

65 

8EH 

05 

1 1FG 

3() 

2GH 

35 

8FB 

15 

1IFH 

io 

STC 

10 

1  IGF 

'i ) 

3AE 

100 

8FD 

10 

1  IGF 

10 

SFG 

60 

1 1GG 

'<0 

4EE 

'6 

8FH 

u5 

1 1GH 

Io 

41;  F 

19 

4EH 

i  >5 

9BE 

12 

9BF 

88 

5EB 

10 

9CD 

20 

5iC 

10 

OCE 

12 

5  ED 

10 

9CF 

68 

5EG 

8  8 

9DE 

12 

5EH 

15 

9DF 

88 

MB 

10 

9GE 

12 

5  EC 

10 

9GF 

58 

M  D 

10 

9GG 

35 

H  G 

8  i 

9GH 

15 

5  EH 

1 5 

10DE 

loo 

('BE 

40 

loEB 

o5 

('BE 

60 

10EC 

o2 

HD 

20 

10EE 

jo 

oCE 

4? 

10EF 

>0 

('CF 

35 

loEG 

30 

6DE 

50 

loEll 

(A 

<'DF 

50 

loEE 

12 

<>GE 

40 

loEH 

sx 

oGE" 

58 

lo(',E 

f  1  > 

6GH 

02 

10GH 

95 

4S 
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APPENDIX  C 

MAINSTREAM  CAREER  PATH  TOLR  LENGTHS 


TABLE  13 

MAINSTREAM  TOL  R  LENGTHS 


TOLR 

LENGTH 

TOLR 

LENGTH 

TOLR 

LENGTH 

IE 

10 

7D 

8 

1  IB 

4 

~E 

6 

1 1C 

4 

:b 

8 

7F 

6 

he 

9 

:e 

0 

"H 

1 

1  IF 

8 

:f 

0 

11G 

s 

:g 

8 

SE 

111! 

I 

:h 

1 

8F 

6 

SH 

1 

1 2D 

10 

3  A 

-> 

12E 

8 

OB 

4 

1 2  F 

8 

4E 

6 

9C 

4 

12G 

8 

9D 

10 

1 211 

1 

5E 

6 

9G 

8 

5F 

6 

9H 

1 

5H 

1 

10D 

8 

6B 

6 

I0E 

9 

6C 

■) 

loF 

8 

oD 

8 

loG 

8 

OF 

S 

10H 

1 

60 

s 

6H 

1 

APPENDIX  D 

SWOPATH  MAIN  PROGRAM 


PROGRAM  SWOPATH > 

C  This  is  the  main  program.  Hera  ail  global  variables  are  defined, 
all  procedures  are  forward  referenced,  and  all  include  files  are 
called.  The  remainder  of  the  parts  that  make  up  the  model  are 
subroutines,  called  procedures,  which  the  main  program  calls  as 
necessary  to  run  the  model.  > 


TYPE 


One_Oim_Real  =  ARRAY  I  Cl . .12  1  OF  REAL i 
Two_Dim_Int  *  ARRAY  {1..12,'A'.. 
Two_Dim_Real  =  ARRAY  tl..l2,'A'. 
Tre_Dim_RealCH  =  ARRAY  tl..l2,'A 
T  r o_0 im_Rea 1NR  *  ARRAY  11.. 12, ‘A 
AString  =  STRING  1301* 

STR_2S  =  STRING  t 25  It 

One_0 im_StrNR  =  ARRAY  Cl.  .161  OF  STR_25* 
One_Dim  StrCH  =  ARRAY  I'A'.-'H']  OF  STR_25t 


H*  ]  OF  INTEGER* 

• H ■  1  OF  REAL* 

. . ‘H1 , 'A' . .  'H'  1  OF  REAL* 
..'HM-.lbl  OF  REAL* 


VAR 


Tour_sum:  One_Oim_Real * 

Tour , 

TLength:  Or»e_Oim_StrNR* 
Activity:  One_Oim_StrCH * 
HiLimit, 

LoLimit , 

Temp_Billet_Total , 
Billet_Total:  Two_Dim_Real * 
New_Length , 

Old_Length, 

Billet_Length:  Two_0im_Int* 
Trans fer_Path:  Tre_Oim_RealCH * 
Path_total , 

T emp_B i 1 le t_Node , 

Billet_Node:  Tre_Oim_RealNR t 

Accessions , 

Tempcount , 

NumberSeconds , 

X, 

Y, 

T, 

L, 


£  label  for  which  tour  ) 

{  label  for  length  in  quarters) 

£  label  for  activity  ) 

£  max  number  of  officers  by  billet  node  ) 

£  min  number  of  officers  by  billet  node  ) 

£  temporary  number  at  each  billet  node  ) 

£  sum  of  officers  at  aach  billet  node  } 

£  new  length  of  tour  ( to  be  changed  to  I  ) 

<  old  billet  length  Hor  record  purposes)  ) 

£  actual  billet  length  ) 

£  percent  of  officers  to  be  transferred  ) 

£  percent  totals  of  transfer  paths  ) 

£  temporary  number  of  officers  at  each  node  ) 
£  number  of  officers  at  node  by  quarters  left 

£  number  of  officer  accessions  } 


£  tour  number  from  1  to  12  ) 

£  quarters  left  from  1  to  16  ) 


Total , 

NRQuarters, 

£ 

how  many  quarters  model  is  to  run  ) 

NRYears , 

£ 

value  established  by  user  ) 

Quarter, 

£ 

counts  from  1  to  4  ) 

QtrCount , 

£ 

variable  Heaps  track  of  #  of  iterations  5 

YrCovnt:  INTEGER* 

£ 

variable  * eeps  track  of  nr  of  years  ) 

K, 

£ 

used  tor  activity  ) 

A, 

Answer, 

Choice, 

£ 

used  tor  activity  ) 

Reinit, 

£ 

used  m  years  to  indicate  reinitialize  ) 

Display, 

Skip, 

£ 

answer  to  choice  of  display  ) 

First, 

C 

Used  to  input  info  to  Correct_choice  ) 

Last:  CHAR* 

Stop_calc_A , 

£ 

Used  to  input  info  to  Correct_choica  ) 

Stop_calc_T , 

F inal_ totals , 

C 

limit  warning  boolean  ) 

s 


\r 

V, 

i 


r  p 

$ 

•N 

I 

r. 


>, 

1 

n' 


.-1 


Violation) 

T  oomany  > 

Toofew, 

Change > 

Initial. 

All_f inished, 

Finished. 

Ready . 

Replace , 

Review. 

Ok_answer . 

Ok_choice:  BOOLEAN) 

F  ile_var , 

Output_name . 

Nodedata . 

Arcdata • 

Lengdata. 

Hilidata . 

Lolidata:  Str_25) 

Choice_zero , 

Chg_var  :  AString) 

Temporary : REAL  > 

Data_f ile:  TEXT  I 

{.pall  forward  references  for  all  procedures  ) 

PROCEOURE  Logo)  FORWARD) 

PROCEDURE  Dirlist)  FORWARD) 

PROCEDURE  Initialize  )  FORWARD) 

PROCEDURE  Initialize_nodes  )  FORWARD) 

PROCEDURE  Initialize.arcs  )  FORHARD) 

PROCEOURE  Initializo_lengths)  FORWARD) 

PROCEDURE  Initialize_hilimits )  FORWARD) 

PROCEDURE  Initializo_lolimits>  FORWARO) 

PROCEDURE  Initialize_labels>  FORWARD) 

PROCEDURE  Select ion_menu)  FORWARO) 

PROCEOURE  Rev iew_select ions  )  FORWARD) 

PROCEDURE  Calculations  )  FORWARD) 

PROCEDURE  AsK_tor_years  )  FORWARD) 

PROCEDURE  All_billet. totals)  FORWARD) 

PROCEDURE  Billet_totals  (VAR  T:  INTEGER; 

VAR  A:  CHAR  )>  FORWARD) 

PROCEDURE  High_warning>  FORWARO) 

PROCEOURE  Low_warning)  FORWARO) 

PROCEDURE  Changes)  FORWARD) 

PROCEDURE  Changeaccess ions )  FORWARO) 

PROCEDURE  Change_arcs )  FORWARO) 

PROCEDURE  Change_length)  FORWARD) 

PROCEDURE  Change.hi limits)  FORWARD) 

PROCEDURE  Change_lolimits )  FORWARD) 

PROCEDURE  Dchoices)  FORWARD) 

PROCEOURE  Dchanges )  FORWARD) 

PROCEDURE  From_pathscrn)  FORWARD) 

PROCEDURE  To_pathscrn)  FORWARO) 

PROCEDURE  Oisp_assign)  FORWARD) 

PROCEDURE  Oisp_ tours)  FORWARD) 

PROCEDURE  Disp_paths_from>  FORWARD) 

PROCEDURE  Oisp_paths_to)  FORWARD) 

PROCEDURE  Oisp.billets)  FORWARO) 

PROCEOURE  Node_dump)  FORWARD) 

PROCEDURE  Arc_dunp )  FORWARD) 

PROCEOURE  Length_dump>  FORWARO) 

PROCEDURE  Hilim.dump)  FORHARD) 

PRCCEOURE  Lolim_dump)  FORWARD) 

PROCEOURE  Invalid_answer>  FORWARD) 

PROCEDURE  Wrong_answer )  FORWARD) 

PROCEDURE  Correct_choice  (VAR  Choice.  First.  Last:  CHAR) 


C  if  limits  violated  ) 

C  hi  limit  ) 

(  lo  limit  } 

C  desire  to  change  > 

<  initialize  values  } 

<  completely  finished  with  program  ) 

£  finished  with  particular  section  ) 

£  activates  replacemt  of  initial  data  ) 
£  look  over  display  selections  1 
£  Used  in  correct_answer  procedure  ) 

£  Used  in  correct_choice  procedure  ) 

£  ) 

£  these  are  all  } 

£  used  in  data  file  ) 

£  creation  and  transfer  ) 

£  Data  file  variable  names  ) 


VAR  Ok_ choice:  BOOLEAN  1 *  FORWARD ) 
PROCEDURE  Correct_answer  (VAR  Answer:  CHARi 

VAR  Ok_answer:  BOOLEAN)*  FORWARD  I 

PROCEDURE  Another_change*  FORWAROi 

PROCEDURE  Strip  (VAR  File.var:  STR_25  )  *  FORWARD  * 

PROCEDURE  Blankline  (X,  Y:  INTEGER )  *  FORWARD * 


PROCEDURE  Save_data  )  FORWARD > 
PROCEDURE  Replace_data  *  FORWARD  * 


(.pa)  (  link  up  all  include  files  ) 
<$I  ibmUTILS  ) 

(SI  Logo) 

($1  Initdata) 

(il  Selactio) 

($1  Calcula t) 

{«  Totals) 

(SI  Chgdata) 

(SI  Screens) 

(tl  Displays) 

($1  Datadump) 

(*I  Answers) 

($1  Stordata) 


(  .pa) 

(  The  beginning  of  the  MAIN  Program 


BEGIN 


Accessions  :  =  350* 
Tempcount  :=  0 ) 
NRYears  : =  0 i 
NRQuar ters  :=  0* 
Quarter  :  =  0  1 
YRcount  0* 
Review  :  =  false. 


(  to  skip  sample  selections  the  first  time  } 
Initial  :  =  true  i  {  to  initialize  the  data  the  first  time  ) 
New_Length  t  T,  A  J  :=  Billet_Length  I  T,  A  ]* 

Logoi 


IF  Initial  THEN 
BEGIN  {  initial  if  ) 

Initialize* 

Change_accessions t 

Initial  :=  falsa*  (  to  prevent  program  from  reinitializing) 
END*  (  initialize  if) 


REPEAT  (  repeat  loop  until  allfinished  ) 

All_finished  false*  (  to  ensure  that  we  are  not  all  finished  ) 
Ready  :*  false*  (  establish  that  we  are  not  ready  for  calcul  ) 

Change  : *  false*  (  establish  that  initially  we  do  not  change  } 


IF  NOT  All.finished  THEN  Selection_menu* 
UNTIL  All_finished  *  true* 


Save.data* 

Clearscreen* 

(GotoRC  (  12,  13  1*) 

(Color  I  white,  magenta)*) 
(WRITELN  ( 1  Have  a 

(Color  (  yellow,  blue)*) 


(  deleted  05  November  1987  --  TFS  ) 
nice  day!  1  )  *) 


ENO .  (  SWOPATH  main  program  ) 


5) 


o 


\4 


*s 

* 


%; 

* 


I 

va 


■>, 


\ 

‘.'l 


a 


SI 


APPENDIX  E 

SWOPATH  LOGO  INCLUDE  FILE 


{»«**«***•*«»************««*•*•*  #**  *#■»*»*#******•»***»«**  »**»***■*»»******.♦***« 
*•*****»***»****»■*»*****»*******#*************-**■*********#********»»***»******} 

{  This  fila  contains  the  procedura 
Logo 

) 

PROCEDURE  Logo ) 

{  This  procedure  calls  up  the  initial  screen  logo.) 

BEGIN 

ClearScreen) 

Color  I  white .blue  ) ! 

ClearScreen) 

Color! white,  magenta)! 

Center! 10, 'SWOPATH'  !) 

(Center! 12, 'The  Surtace  Warfare  Officer'  ll) 

{Center! 14 ,' Career  Path  Model'  li) 

Center  I  18, 'Version  1.2'  )  k  {Be  sure  to  change  version  number  ) 

{Center  I  20, '20  October  1985'))) 

Colorlwhite,  blue)!  {  and  date  if  modifications  are  made  ) 

GotoRC  (23,  1)! 

DELAY  (1500)! 

END)  {Logo) 


APPENDIX  F 

SWOPATH  INITIALIZATION  INCLUDE  FILE 


{»*»*»****«*■»**■»*•»*•****#*#***»###*##**•**»»**»#**■»**«*****  X**#*****#***#*#**-#* 
#****-***»*****»*##***#*-*##*#»»»#***»#*«***#***«******<******-**#*»-*-****.******-4) 

{  This  file  contains  the  following  procedures 

Initialize 
Ini tialize.nodes 
Initialize. arcs 
Initialize. lengths 

Initialize.labsls  {  modified  11/05/87  —  TFS  } 

In itialize.hi limits 
Initialize.lolimits 
DirList 


PROCEDURE  Initialize) 

{  This  procedure  provides  the  displays  and  mechanics  to  call  up 
the  data  initialization  procedures  } 


Ok:  BOOLEAN) 

X,Y  :  INTEGER) 
Default  :  Str_25) 


Finished  :  =  false) 

IF  Initial  THEN 
BEGIN 

Nodcdata  :*  'Noc 
Arcdata  :*  'Arcs 
Lengdata  :*  1 Ler 
Hilidata  'Hi] 
Lolidata  : =  'LoJ 


'Nodes'  ) 
Arcs'  ) 

’ Length'  ) 

' Hilimi t '  ) 
' Lolimit '  ) 


REPEAT  <  until  finished  > 

Chg.var  :  = 

'Do  you  want  to  change  the  input  data  files  from  those  listed  below?') 
Choice.zero  :='No  changes  wanted/finished  changes.’) 

Ochanges ) 


IF  Choice  * 


THEN  Finished  :=  true 


ELSE 

BEGIN 

Clearscreen) 

GotoRC  (5,  1)1 

HRITELN  ( '  Remember>  you  must  choose  a  data  file  that  you  have  '  )> 
HRITELN  ('  previously  saved.  Those  are  listed  below.')) 

HRITELN) 

Color  (red,  white  I) 

Oirlist) 

Color  (white,  blue)) 

HRITELN) HRITELN) 

GotoRC  (11,  15)) 

HRITELN  ('  Enter  the  input  filename’)) 

Color  (blue,  white!) 

GotoRC  (13,  151) 

HRITELN  (  '  typed  exactly  as  listed  above,'  )) 

Color  I  white,  blue)) 

GotoRC  (15,  15)) 

HRITELN  ( '  that  you  choose  to  use:  ' •) 

REPEAT  {  Ok  true  ) 


"v’vx  /:/»>■“ 


IF  Choice  ~  'l'  THEN  Default  :=  'Nodes' ) 

IF  Choica  -  '2'  THEN  Default  :=  'Arcs'  ) 

IF  Choica  =  '3'  THEN  Oefault  :=  'Length') 

IF  Choica  =  '4'  THEN  Oefault  :=  'Hilimit') 

IF  Choice  =  '5'  THEN  Oefault  :=  'Lolimit'i 

GotoRC  ( 2C  ,15  )  ( 

WRITE  ( 'Type  1 ,  Default,'  if  you  want  to  exit  back  to  menu. '  )\ 
Blankline  115,  40  I  s 
GotoRC  1 15,  40 ) > 

READ  (File_varl) 

IF  Choice  =  '1*  THEN  File.var  :=  CONCAT  1 F i le.var , ' . nod '  H 

IF  Choice  =  '2'  THEN  File.var  :=  CONCAT  t F ilelvar , ' . and '  )  i 

IF  Choica  =  '3'  THEN  Fila_var  :=  CONCAT  I F i le_var , ' . led '  )  ) 

IF  Choice  =  '4'  THEN  File_var  :=  CONCAT  1 File.var , ‘ . hid '  1 1 

IF  Choice  =  'S'  THEN  File.var  :=  CONCAT  1 File_var, ' . lod'  )  ) 

ASSIGN  <0ata_file,  File.var  HfThis  procedure  determines  if  there  } 
<$I-)  RESET  (Data_file)  -C  $X  +  J  » <  i  s  such  a  file  as  selected  by  user.) 
Ok  :  =  ( IOresult  =  0 ) \ 

Strip  (File.var!) 

IF  NOT  Ok  THEN 
BEGIN 

Blankline  124,  1  )  ) 

Color  (white,  radii 

WRITE  1  '  Cannot  find  file  ',  File.var,'  please  try  again.'  )i 

OELAY  (1500)1 

Color  (white,  blue)) 

Blankline  (24,  II) 

END)  {  Ok  10  result  if  ) 

UNTIL  0k  =  True) 


IF 

CFioice 

5 

•  i  • 

THEN 

Nodedata 

:  s 

File_var> 

IF 

Choice 

S 

'2' 

THEN 

Arcdata 

:  s 

File_var) 

IF 

CFtoice 

= 

'3' 

THEN 

Lengdata 

:  = 

File.var) 

IF 

Choice 

r 

•4' 

THEN 

Hilidata 

:  s 

File.vari 

IF 

Clio  ice 

s 

'5' 

THEN 

Lolidata 

:  = 

File_vari 

END)  1  if  choice  =  0  ) 

UNTIL  Finished  *  true) 

Ini tialize_ labels  > 

Ini tialize_nodes i 
Initialize.arcs) 

Initialize_lengths  > 

Initialize. hi limits) 

Initialize.lolimits  > 

Final.totals  true) 

A ll_billet_ totals) 

Blankline  ( 24 ,1  I ) 

EN0)  <if  Initial  ) 

IF  NOT  Initial  THEN 
BEGIN 

REPEAT  C  Until  finished  true  } 

Chg_var  :=  ‘Wiich  data  do  you  desire  to  reinitialize? ' > 
Choice_zero  :=  'None/finished  reinitializing  data.') 
□changes i 

IF  NOT  Ok_choico  THEN  Initialize) 

IF  Choice  *  '0'  THEN  Finished  : =  true) 

IF  Choice  =  '1'  THEN 
BEGIN 

Ini t ialize.nodes ) 

Arcdata  CONCAT  ( Ar cda ta  , '  . ard '  )  i 
Lengdata  :=  CONCAT  ( Lengda ta , ' . led '  I) 

Hilidata  :=  CONCAT  ( H i 1 ida ta , ' .hid '  1 1 
Lolidata  :=  CONCAT  ( Lolidata , ' . lod '  1 1 
END)  C  If  choice  1  ) 


IF  Choice  *  '2'  THEN 
BEGIN 

Init ialize.arcs  i 

Nodedata  :=  CONCAT  (  Nodeda ta , ' . nod'  I , 

Lengdata  :=  CONCAT  < lengdata , 1 . led '  )  , 

Hilidata  :*  CONCAT  ( H i 1 idata , ' . hid '  I , 

Lolidata  :*  CONCAT  ( Lolidata, ' . lod •  I » 

END,  C  If  choice  2  ) 

IF  Choice  =  '3'  THEN 
BEGIN 

Initialize.lengths, 

Nodedata  :  =  CONCAT  I  Nodedata, ‘ .nod'  ), 

Arcdata  CONCAT  I Arcdata , * . ard*  )  , 

Hilidata  : *  CONCAT  I Hilidata ,' .hid'  > » 

Lolidata  :*  CONCAT  < Lolidata, '. lod ') , 

END)  <  If  choice  3  ) 

IF  Choice  *  '4'  THEN 
BEGIN 

Ini t ialize_hilimi ts , 

Nodedata  : *  CONCAT  i Nodeda ta , ' . nod '  )  , 

Arcdata  :*  CONCAT  ( Arcdata ,'. ard'  I » 

Lengdata  :  *  CONCAT  , Lengdata led '  )\ 

Lolidata  :*  CONCAT  ( Lol idata ■ lod '  I , 

END ,  (If  choice  4  ) 

IF  Choice  =  'S'  THEN 
BEGIN 

Initialize.loiimits  » 

Nodedata  :=  CONCAT  ( Nodedata ,'. nod '  I , 

Arcdata  : *  CONCAT  ( Arcdata ard*  )  I 
Lengdata  CONCAT  t Lengdata led ')  , 

Hilidata  : *  CONCAT  , Hilidata ,'  hid'  )  , 

END  ,  {  if  choice  S  ) 

UNTIL  Finished  *  true) 

Final_totals  : =  true, 

All_billet_totals  i 
Clearscreent 

ENO,  I  if  NOT  initial  ) 

END,  {  Initialize  procetkire) 

<******  *•»»»*****»*«**.»*******»**«#***»*****«  »****»***„»»* 

<  .pa) 


PROCEDURE  Initialize.nodes, 

{  This  procedure  reads  assignment  data  from 
a  data  file  on  the  disk  } 

BEGIN 

Blankline  123,  10), 

GotoRC  (23,  II, 

WRITE  I*  Initializing  the  number  of  officers  at  nodes  ', 
'', 'using  the  file  Nodedata  I , 
Nodedata  :*  CONCAT  I  Nodedata ,'. nod ’  it 
ASSIGN  ( Data. file , Nodedata  I , 

RESET  I  0ata.fi le  I , 

WHILE  NOT  EOFI 0ata_f ile  I  DO 
BEGIN 

READ  (Data. file,  T  l, 

IF  NOT  EOFI Oata.file  I  THEN 
BEGIN 

READ  I  Data  _  file,  Skipi, 

READ  i  Oata.file,  A  ), 


V.V.V 


1  UIWI 


V\S’V- 


I 

'A 


READ  ( Data_f ile,  Skip)) 

READ  l Jata_f ile,  L  )) 

READ  (  Data  f iie>  Skip!) 

REAOLN  (Oata.file,  Billet.node  I  T,  A  ,  L  ]>) 
END)  £  if  not  end  of  file  ) 


END i  £  end  while  not  end  of  file  } 


CLOSE  ( Da ta_f ile  1 1 


£  Initialize  nodes  ) 


{#»**###***#•*»»*»*•***#*#**»*****#*>♦*****»)**#****»***»****#«*********#*#»*#*** 

•a*###*******##****###*##******#***#**))**#***#*##***#*****##*####*##**#*#**##) 


{ .pa) 

PROCEDURE  Ini tialize_Arcs 1 


£  This  procedure  reads  transfer  path  percentages  from 
a  data  file  on  the  disk  } 


T, 

L:  INTEGER v 
A, 

K:  CHAR i 

Data_file:  TEXT  ) 


Blankline  123,  10)) 
GotoRC  (23,  ID 
WRITE  (  '  Initializ 


WRITE  (  '  Initializing  the  transfer  path  percentages  '  , 

1 using  the  file:  ‘.Arcdata)) 

Skip  :=  ■  'i 

Arcdata  :=  CONCAT  (Arcdata,  * .ard'  )) 

ASSIGN  ( Da ta_ file, Arcdata)) 

RESET  (Data_file)) 


WHILE  NOT  EOF( 0ata_f ila  )  00 
BEGIN 

READ  ( Data_tile ,T ) ) 

IF  NOT  E0F( Data.f ile )  THEN 
BEGIN 

READ  (  0ata_fi  le ,  Skip!) 

READ  ( Data_f ile,  A  I) 

READ  ( Data_f ile.  Skip!) 

READ  ( Data.f ile,  K I) 

REAOLN  ( Data_f i le .Trans fer_Path  l  T,  A,  K  J)) 
END)  <  end  if  not  end  of  file  ) 

END)  £  end  while  not  end  of  file  } 


CLOSE  ( 0ata_f ile  ) ) 


£  Initialize  arcs  } 


<  ***************************************************************************** 


PROCEDURE  Initializa.lengths) 


£  This  procedure  reads  the  assignment  tour  length  data 
from  a  data  file  on  the  disk  } 


T:  INTEGER) 

A:  CHAR) 

Oata.file:  TEXT) 


Blankline  (23,  10)) 
GotoRC  (23,  ID 


y,VoV.,Vv.-v\-  Vs.»\- V  VV-r.^ 


WRITE  ('  Initializing  assignment  tour  lengths  using  the  file:  ' »  Lengdata  1 1 
Lengdata  :*  CONCAT  ILengdata,  '.led')) 

ASSIGN  (Oata_file>  Lengdata I» 

RESET  (  Data_f ile ) ) 

WHILE  NOT  EOF( Oata_f ile  t  DO 
BEGIN 

READ  ( Oata_file>  T  )> 

IF  NOT  EOF! Data_f ile  I  THEN 
BEGIN 

READ  (Data_file>  Skip!) 

REAO  <Data_file,  A  )) 

READLN  ( Oata_f ile*Billet_length  [  T,  A  1)> 

END)  Cend  if  not  end  of  file  1 

END*  C  end  while  not  end  of  file  1 
CLOSE  ( Oata_f ile ) ) 

END)  {  initialize  lengths  ) 


-  ‘First  Tour  ' ) 

*  ‘Second  Tour  ■ > 

=  'Third  Tour  ') 

=  'Fourth  Tour  ') 

=  'Fifth  Tour  ' ) 

=  ‘Sixth  Tour  '> 

*  'Seventh  Tour  ') 

*  ‘Eighth  Tour  ' ) 

*  ‘Ninth  Tour  ' ) 

:  ■  'Tenth  Tour  ' ) 

:  a  'Eleventh  Tour 
:«  ‘Twelfth  Tour  ' 


'  ) 


'Prof  Trng 
‘Prof  Educ 
'Joint  Educ 
'Joint  Tour  '> 
■Fleet  Unit  ' ) 
•Afloat  Staff 
■Shore  ') 


<  modified  11/05/87  —  TFS  ) 


»«»»»»))  » imiHHHHHHHHHHHHHHHHHHH»)HHHHHHHHHHHHHHHHHHHHHHHm»>m)HHHHHHHHHHt  »***»»»*) 

C  .pal 

PROCEDURE  Initialize_labels )  C  modified  ll/OS/87  --  TFS  ) 

C  This  procedures  establishes  the  display  labels  for 
tours*  activities*  and  quarters  left  ) 

BEGIN 

Tour  [1] 

Tour  (21 
Tour  151 
Tour  141 
Tour  (51 
Tour  (61 
Tour  (71 
Tour  (81 
Tour  19] 

Tour  (101 
Tour  (111 
Tour  (121 
Activity  ( 

Activity  ( 

Activity  ( 

Activity  ( 

Activity  I 
Activity  I 
Activity  I 
Activity  I 
TLength  I 
TLength  ( 

TLength  I 
TLength  ( 

TLength  ( 

TLength  t 
TLength  ( 

TLength  ( 

TLength  [ 

TLength  ( 

TLength  ( 

TLength  ( 

TLength  ( 

TLength  ( 

TLength  I 
TLength  ( 

END)  (  Initialize  labels  1 


'  H  ‘ 

1  'Separation 

‘  ) 

1  1 

a  '  with 

1  qtr 

left'  ) 

2  1 

*  '  with 

2  qtrs 

left  ' ) 

3  1 

»  '  with 

3  qtrs 

lef  t ' ) 

4  1 

«  '  with 

4  qtrs 

left'  ) 

5  1 

a  '  with 

5  qtrs 

left'  ) 

6  1 

a  '  with 

6  qtrs 

left' ) 

7  1 

a  ‘with 

7  qtrs 

left'  ) 

8  1 

a  '  with 

8  qtrs 

lef  t '  ) 

9  1 

=  ‘with 

9  qtrs 

lef  t ' ) 

10  1 

:  =  '  with 

10  qtrs 

left'  ) 

11  1 

:*  '  with 

11  qtrs 

left'  ) 

12  1 

:*  '  with 

12  qtrs 

left  ‘  ) 

13  1 

'  with 

13  qtrs 

left'  ) 

14  1 

:  =  '  with 

14  qtrs 

left'  ) 

15  1 

:  a  ■  With 

15  qtrs 

left'  ) 

16  1 

:  a  ■  With 

16  qtrs 

left'  ) 

(»»)UHUHUHUt<UUUHUUMHUHHMHMHUHHUUUUUHHUHUHUUHUUHUUUUUUUUHHUHMUHUHUUUHHHHH»«)HHUt 


»•**••«•••»****•*•*•*«*«*•«**»•«**#*••»•#•«**»*«******•***«***«•*•#**********} 
<  .pa) 


PROCEDURE  Ir)itialize_hilimitsi 

(  This  procedure  reads  high  limit  data  from  a  data  file  on  the  disk  ) 

VAR 


T:  INTEGER ) 

A:  CHAR) 

Data_f lie:  TEXT  > 

BEGIN 

Blankline  I2J,  10  1) 

GotoRC  ( 23 ,  II) 

WRITE  ('  Initializing  the  high  limits  using  the  file:  Hilidata)  ) 

Hilidata  :=  CONCAT  I H ilida ta , ' . hid '  ) ) 

ASSIGN  I 0ata_f ile>  Hilidata!) 

RESET  IData.file!) 

HHILE  NOT  EOFI Data_f ile  !  00 
BEGIN 

READ  I Data_f ile,  T  )) 

IF  NOT  EOFI Data_f ile  I  THEN 
BEGIN 

READ  (Oata_file,  Skip!) 

READ  I Data_f ile.  A  I) 

READ  IData_file>  Skip!) 

REAOLN  I Data_f ile,  HiLimit  l  T,  A  Jl> 

ENO)  {  end  if  not  end  of  file  if  ) 

END)  {  end  whila  not  EOF  loop  ) 

CLOSE  <  Oata_f ile  I ) 

END)  C  Hilimit  procedure  ) 

{aeaeeaeeaweaaeaaaaaaaaaaaaaaaawHiaaaaaaaaaaaaaeaaoHtaaaaaiHHtaaaaaeaaaaaaeaaa 
*«»*»ihhhhh>»*»»ihhhhhhhhhhhhhhhhhhhhmhhhhhhhhhhi  whhhhhhhhhhw  *****************  ) 

<  .pa) 

PROCEDURE  Initialize.lolimits) 

<  This  procecfcjre  reads  low  limit  data  from  a  disk  file  ) 

VAR 


T:  INTEGER) 

A:  CHAR) 

Data_f ile:  TEXT) 

BEGIN 

Blankline  ( 23  >  10  1) 

GotoRC  (2J,  II) 

WRITE  I'  Initializing  Low  Limits  using  the  fila:  '»  Lolidata!) 
Lolidata  : =  CONCAT  (Lolidata,  '.lod‘!) 

ASSIGN  (Oata.fila,  Lolidata!) 

RESET  I Data_f ile  ) ) 

WHILE  NOT  EOFI 0ata_f ile)  00 
BEGIN 

READ  <Data_file,  T  I) 

IF  NOT  EOFI Data_f ile)  THEN 
BEGIN 

READ  (0ata_file,  Skip)) 

REA0  (Data_file>  A  )) 

READ  I0ata_file»  Skip!) 

REAOLN  IData_file,  Lolimit  t  T,  A  1)) 

END)  (  end  if  not  end  of  file  ) 

END)  {  end  while  not  end  of  file  ) 

CLOSE  I 0ata_f ile  I ) 


5^ 


i 

l 


*■  »  - 

lijilwi  a  A. 


PROCEDURE  OirList ) 

C 

This  is  a  simple  program  to  list  out  the  directory  of  the 
current  I  logged )  drive  in  accordance  with  filetype  chosen. 
MODIFIED  BY  RBA  ) 


Charl2arr  -  array  I  1..12  1  of  Chari 

String20  =  string!  20  li 

RegRec  * 
record 

AX,  BX,  CX,  OX,  BP,  SI,  01,  OS,  ES,  Flags  :  Integer* 
end  ) 


Regs 
DT  A 
Mask 
NanR 

X,Y, Error,  I 


:  RegRec i 

:  array  [  1..45  1  of  Byte) 
:  Charl2arr) 

:  String20i 

:  Integer) 


begin  C  main  body  of  program  OirList  5 


F illCharl OTA .SizeOf  I  DT  A l,OI| 

F illCharl Mask ,SizeOf I  Mask  1 ,0  1 ) 
F illCharl  NamR  .SizeOf  I  NamR  1,01) 
Regs. AX  :*  $1A00)  (  Fu 

Regs. OS  :*  SeglOTAl)  {  st 

Regs  .  OX  :>  OfsIOTAI)  C 


(  Initialize  the  OTA  buffer  } 
{  Initialize  the  mask  } 

(  Initialize  the  file  name  } 


<  Function  used  to  sat  the  DTA  > 

{  store  the  parameter  segment  in  DS  ) 

<  "  "  '•  offset  in  DX  } 


MSOosI Regs  ) ) 


(  Set  OTA  location  ) 


ror 

IF 

:  2  0\ 

Choice 

X 

'  1 ' 

THEN 

Mask 

:  x 

.  nod ■ ) 

IF 

Choice 

S 

•2' 

THEN 

Mask 

:  s 

.  ard ‘ ) 

IF 

Choice 

= 

'  J’ 

THEN 

Mask 

:  x 

.  led 1  ) 

IF 

Choice 

x 

'4* 

THEN 

Mask 

:  x 

•  •>  1  ?  f  ■>  -7  7 

hid'  i 

IF 

Choice 

= 

'5' 

THEN 

Mask 

;  X 

* ???????? 

.  lod' ) 

Regs. AX  S4E00) 

Regs  .  OS  SeglMaskl) 

Regs  OX  :*  OfsIMaskl) 

Regs . CX  : =  22) 

MSOosi Regs  I ) 

Error  : -  Regs . AX  and  IFF  ) 
I  1) 


C  Use  global  search  ) 


(  Got  first  directory  entry  5 
{  Point  to  the  file  Mask  ) 


(  Store  the  option  ) 

(  Execute  MSOos  call  ) 

{  Get  Error  return  ) 

(  initialize  'I'  to  the  first 


if  l Error  *  0  )  then 


repeat 

NamR!  I  ]  :*  Chrl  Mem!  Segl  OTA  I :  Of  si  0  r  A  i  ♦  :<*  *  I  1  i  ■, 

I  :*  I  ♦  1) 

until  not  ( NamR!  I  - 1 1  in  !'  '  1  i  or  i  I  -20  i  > 


NamR! 0  )  :■  Chrl I -1  I) 


<  set  string  length  because  assigning  > 

(  by  element  does  not  set  length  } 


IF  (Error  *  0  )  THEN 
BEGIN 

X  : =  LENGTH  I NamR  I ) 
Y  :=  X  -4 1 

DELETE  I NamR ,Y ,4  I ) 
HRI TELNI NamR  I) 

EMO) 


while  I  Error  <  01  do  begin 


I 

L*.' 


s 


'  VrtL’vyrwT  ;r*  ir*jr  '.w  vjvrr<rjvuTT."wv  tvt-j  >01  »v  r,  w  ™ 


Error  :  =  0) 

Rags. AX  :*  S4F00)  £  Function  usad  to  gat  tha  next  ) 

£  directory  antry  } 

Regs.CX  :*  22)  £  Sat  tha  tile  option  } 

MSOosI  Rags  It  (Call  MSOos  ) 

Error  Regs. AX  and  SFF)  £  got  tha  Error  return  ) 

X  :=  1) 

repeat 

NamRtll  :=  Chrl  Memt  Segl  DTA  ) :  0  tsl  DT  A  )  *29*I )  )  ) 

I  :=  I  ♦  ll 

until  not  (NamR(X-l]  in  t'  '1  )  or  II  >  20)1 

NamRtO ]  : =  Chrl 1-1  1 1 

IF  I  Error  =  0 )  THEN 
BEGIN 

X  :*  LENGTH  I NamR  )  1 
Y  :  -  X-4 ) 

DELETE  (NamR, Y, 4li 
WRITELNl NamR 1 1 
END  1  £  error  if) 

END  1  <  while  do  loop  ) 
end)  <  of  procedure  DirList  ) 


«F_  »T.  m "  w  >.  ■*  «*_  If*,  a*,  if",  gV  a".  *V  ■  _  ■*_  lT_  «T.  a*,  <e 


I  ViWaHVi  %•«%  »U*>h,A*A*A'  JUtJi*  iVAW  JU*J|(J|>  jlI 


APPENDIX  G 

S  WO  PATH  CALCULATIONS  INCLUDE  FILE 


WWHHHHUH  )H»«<H»lll>lllimHHHHHHHHHHH>»<HHHHHHHHHt»<HHHHHHHW<HHHHHHHHHHHHHHHHHHHH»«««) 

(  This  file  contains  the  following  procedures 

Ask_for_years 

Calculations 


PROCEDURE  Ask_for_years : 


Years.wanted, 
Qtrs.wanted:  INTEGER: 


REPEAT  {  until  NRYaars  answer  is  an  integer  } 

REPEAT  C  until  NRQuarters  answer  is  an  integer  ) 

Blankline  123,  1 ) I 

WRITE  ('  Choose  0  years  A  0  quarters  to  quit.1): 

DELAY  (2000): 

Blankline  (23,  lit 

REPEAT  {  until  correct  answer  ) 

Blankline  (24,  1): 

WRITE  ('  Do  you  desire  to  reinitialize','1, 

'(set  to  zero)  yrs  t  qtrs?  (Y/N)  ')( 

READ  ( Kbd ,  Answer  ) ) 

Correct_answer  (Answer,  Ok.answer  ) : 

UNTIL  Ok_answor  *  true) 

IF  Answer  in  t  'Y*  ,  'y '  1  THEN 
BEGIN 

NRQuarters  :  =  0: 

YRCount  :=  0: 

Quarter  ;=  0: 

TenpCount  :=  0  : 

END  i  (reset  yrs  and  qtrs  to  zero  ) 

Blankline  ( 24,  1 ): 

WRITE  ( 'How  many  years:  <CR>and  quarters:  <CR>do  you  want  to  run  the  model?' 

GotoRC  (24,  16): 

<$I-)  RE AO  ( Years_wanted I  ($IO: 

Ok_answer  :*  ( IORESULT  =  Oil  CTURBO  PASCAL  function  to  check  input  type  ) 

IF  NOT  Ok_answer  THEN  Invalid.answer : 

UNTIL  0k_ answer  =  true* 

GotoRC  (24,  341: 

($1-)  READ  (qtrs.wanted)  {*!♦>: 

Ok_answer  :*  (IORESULT  -  OH  {TURBO  PASCAL  function  to  check  input  type  ) 

IF  (Qtrs.wanted  <  0  I  OR  (Qtrs.wanted  >  3)  THEN  Ok.answer  :=  false: 

IF  NOT  Ok.answer  THEN  Invalid.answer: 

UNTIL  Ok.answer  *  true: 

NRQuarters  :=  Qtrs.wanted  ♦  ( Years.wanted  *  4): 

IF  (Qtrs.wanted  ♦  (Years.wanted  *  41  =  01  THEN 
BEGIN 

Color  (  white,  red  I : 


.VJV.V 


«  a  _  a  _  a  »  iV«.*  _  Ya  -  a 


Blankline  ( 24,  1  )i 

WRITE  ( 'You  have  chosen  0  yrs  t  0  qtrs.  Returning  to  selection  menu. '  H 
DELAY  ( 2000  )  > 

Color  (  white,  blue)) 

Blankline  (24,  1 ) ) 

EXIT*  C  Exit  from  ask  for  years  procedure  } 

END*  C  if  NRcjjarters  =  0  ) 

Calculations  * 

ENO)  CAsk_for_years) 

C  .pal 

I******************************** ************ ******************************** 
*****************************************************************************} 


PROCEDURE  Calculations) 
VAR 


<  Modified  20  October  1985  --  RBA  ) 

C  Modified  05  November  1897 


Temp, 

Temporary:  REAL) 

TT, 

LL, 

L:  INTEGER) 

AA:  CHAR) 

Data_f ile:  TEXT) 
Transfers:  Two_Dim_Real) 

BEGIN 


--  TFS  > 


T  oomany : * f a 1 se ) 

Blankline  (24,  1)) 

WRITE  ('  Beginning  calculations.  ')) 

QtrCount:*  0)  l  initialize  quarter  counter  ) 

FOR  TT  :=  12  DOWNTO  1  DO  C  initialize  stocks  ) 

BEGIN 


FOR  AA  :*  'A'  TO  'H'  00 
BEGIN 

FOR  LL  :=  1  TO  16  DO 
BEGIN 

Temp_billet_node  [TT,  AA,  LLl  :=  Billet_node  [TT,  AA,  LLI) 

END)  {  LL  loop  1 

END)  I  AA  loop  } 

END)  C  TT  loop  1 
REPEAT 

QtrCount  : -  QtrCount  ♦  1)  {  increment  quarter  counter  ) 

FOR  T:=  12  DOWNTO  1  00 

BEGIN  IT  Loop) 

FOR  A:=  'A'  TO  'H'  DO 

BEGIN  <4  bco  -  mathematical  calculations) 

L:*  1)  Clei-j*n  of  billet  nodes  in  quarters) 

t  Beginning  of  modifications  .  85  ) 

REPEAT  ••  i»*  •-Mirers  down  one  quarter  ) 

Temp_Bi llet_node  [  T,  4  i  =  T,--p  Billet.node  t  T,  A,  L ♦  1 1 ) 
Temp_billet_node  I  1,  h  .  i  ;  o.O> 

L  :  =  L  ♦  1 ) 

UNTIL  L  S  16  )  8?  --  TFS  ) 


C  compute  transfers  ) 

IF  T  <>  1  THEN 
BEGIN 

Transfers  t  T-l,  A  1  :  = 

( Temp_Billet_Node  (  T-l.  4  ,  1  I  *  Trans fer_Pa th  [T-l, 'A', All 

( Temp_Bi llet_Node  !  T-l.  ?  .11*  Transfer_Path  [T-l, 'B', All 

(  Temp_Billet_Uode  (  T-l.  C  .11*  Transf er_Path  [T-l, 'C', All 


I Temp_Billet_Node  [  T-l, 


I Temp_Billet_Node  (  T-l,  '£'  .11*  Transfer.Path  (T-l, *E', All  ♦ 
(  T  emp_B  i  1  le  t.Node  C  T-l,  ‘  F  •  >  1  I  *  Transfer.Path  [T-l.'FMlI  ♦ 
I Temp_Billet_Noda  (  T-l,  'G'  ,11*  Transfer.Path  t T-l , 'G ' , A  1  I  i 


,11*  Trans fer_P«th  (T-l, 'O', All  + 


Temporary  :  = 


{  compute  temporary  stocks  ) 

Temp_B i 1 la t_Node  C  T,  A,  Billet_length  I  T,  A  11) 

{  sum  transfers  and  temporary  stocks  ) 


Temp_Billet_Node  [  T,  A,  B  i  1  let.Length  [  T,  A  11:= 
Transfers  (T-l,  A1  ♦  Temporary) 


Final.totals  :=  false) 
Billet.totals  IT, AJ) 
END 


{  compute  total  stocks  ) 


{  now  T  equals  1  ) 

£  11/05/87  —  TFS  ) 


Temporary  :=  Temp_billet_node  (  T,  A,  Billet. length  I  T,  A  11) 


IF  A  <>  ' E 1  THEN 
BEGIN 

Tenp_billet_node  (  T,  A,  Billet.length  (T,  A  11:* 


Temporary) 


ELSE 

BEGIN 

Temp_billet_node  I  T,  A,  Billet.length  [  T,  A  11  := 
Temporary  ♦  Accessions) 

END)  {  IF  A  =  El 


Final_totals  :=  false) 
Billst.totals  IT, Al) 
ENO)  (if  t  =  0  ) 


{  End  of  modifications  10/20/85  1 


C  test  for  Hi  limit  ) 

IF  Temp.bi list. total  (  T,  A  1  >  Hilimit  (  T,  A  1  THEN 
BEGIN 

Violation  :=  true) 

High.warning) 


IF  Stop_calc_T  THEN  EXIT) 

3)  (if  high  warning) 


I  test  for  Low  limit  ) 


IF  Temp_bill*t_ total  (  T ,  A  1  <  Lolimit  (  T,  A  1  THEN 
BEGIN 

Violation  :=  true) 

Low.warning) 

IF  Stop.calc.T  THEN  EXIT) 


END)  (  if  low  warning  } 

3)  (A  Loop  ) 

IT  Loop  and  mathematical  calculations) 


LAfTIL  (QtrCo<jnt  *  NRQuarters  I  OR  Toomany) 


IF  NOT  Violation  THEN 
BEGIN 

TempCo<Jit  :*  TempCount  ♦  QtrCount) 
YrCount  :=  TRUNC  I  TempCotnt/4  D 


IF  I  I  YrCount  *  41  >  Tempcount)  THEN  YrCount  :=  YrCount  -  1) 
Quarter  :=  TempCount  -  I YrCount  *  4 D 


FOR  TT  :=  12  OOWNTO  1  DO 
BEGIN 


BEGIN 


FOR  LL  :=  l  TO  16  00 
BEGIN 

Billat_node  CTT,  AA ,  LL  1  :=  Temp  Billet_node  [  TT ,  AA,  LLb 
END (  <  LL  loop  ) 

END  1  (  AA  loop  } 

END  >  <  TT  loop  } 

Final_totals  :=  trua> 

All_billet_totals( 

END t  {  violations  if  ) 

END  v  (calculations) 


APPENDIX  H 

S  WO  PATH  SCREENS  INCLUDE  FILE 


{ #*****#*#****#*■*####*»#*#*******##«**##  ***********  *##***#■*#*#■**#*«■#*#*■**■* 
**#***»»#*■*****'•#**#**'»'•********#*#***#•»#«##*##**#***»*****'»•»*#*#****»*******) 

{  This  file  contains  tha  following  procedures 

Ochoices  <  modified  11/05/87  --  TFS  ) 

□changes 

From_pathscrn 

To_pathscrn 


PROCEDURE  Ochoices I 

{  This  procedure  provides  the  display  screen  and  answer  evaluation 
for  the  choices  indicated  ) 

VAR 

Ok_ range, 

Ok_tour  > 

Ok_activity:  Boolean) 

BEGIN 

Ok_tour  :=  false) 

Ok_activity  :  =  false) 

GotoRC  (1,  ID 

WRITELN  ('  ' >Chg_var ) )  {  11/05/87  --  TFS  ) 

WRITELN) WRITELN) 

WRITELN  ( •  TOUR  ACTIVITY1)) 

WRITELN) 


WRITELN  ( 1 

1. 

FIRST 

A. 

PROFESSIONAL 

TRNG 

'  )) 

WRITELN  l 1 

2. 

SECOND 

B. 

PROFESSIONAL 

EDUC 

'  )) 

WRITELN  ( 1 

3. 

THIRD 

C. 

JOINT  EDUC 

'  )> 

WRITELN  ( 1 

4. 

FOURTH 

D. 

JOINT  TOUR 

'  )) 

WRITELN  (  1 

5. 

FIFTH 

E. 

FLEET  UNIT 

1  K 

WRITELN  ( 1 

6. 

SIXTH 

F. 

AFLOAT  STAFF 

‘  )) 

WRITELN  ( 1 

7. 

SEVENTH 

G. 

SHORE 

'  )) 

WRITELN  ( 1 

8. 

EIGHTH 

H. 

SEPARATION 

'  )) 

WRITELN  (  1 

9. 

NINTH'  I) 

WRITELN  ( 1 

10. 

TENTH'  li 

WRITELN  ( ' 

11. 

ELEVENTH'  1) 

WRITELN  (  1 

12. 

TWELFTH' ) t 

GotoRC  (22,5)) 

WRITELN  (  1  TOUR:  ( type  number<CR >  )  ACTIVITY:  ( type  letter  ) 1  )  > 

REPEAT  C  Until  Ok.tour  true  ) 

REPEAT  <  Until  Ok_activity  true  ) 

IF  NOT  0k_tour  OR  NOT  Ok_range  THEN 
BEGIN 

GotoRC  (22,  141) 

CGI — 1  READ  (  T  )  CGI*}  )  (read  TOUR  number  but  first  cancel  I/O  ) 

<  checking  to  prevent  error  if  non  integer  ) 

C  key  is  struck  accidentally.  Then  turn  back  on  ) 
0K_tour  :=  I I0RESULT  :  Oh  {  TURBO  PASCAL  I/O  error  chsck .  If  input  ) 

{  was  in  fact  correct  i.e.  an  integer  then  ) 

C  the  TB  function  IORESULT  will  return  a  0  ) 

IF  ( T  >=  1  )  AND  (T  <=  121  THEN  Ok  range  : =  true ) 

IF  (T  <  1)  OR  (T  >12)  THEN  Ok  range  :=  false) 

IF  NOT  Ok_tour  OR  NOT  Ok range  THEN  Wrong_answer > 

END)  E  Ok_tour  correct  if  ) 

UNTIL  I0k_tour  ANO  Ok_range  I  = 


true  ) 


'jfn>  ww'jv, .'vlvlvlvi*."  w 


i  *-;■  .r.  y-  v.  , 


IF  NOT  Ok_activity  THEN 
BEGIN 

GotoRC  (22,  46 I i 

READ  ( kbd ,  A  l>  (read  ASSIGNMENT  letter) 

A  :=  UPCASE  (All 

First  :  =  'A'l  Last  :=  'H'l  OK_choice  true* 

Correct_choice  (  A,  First,  Last,  Ok_choice)i 
Ck_activity  :  =  Ok_choicei 
END',  (  if  not  ok  activity  ) 

UNTIL  (Ok_tour  and  Ok_activity  I  =  true* 

Clearscreen  * 

ENOt  (choices) 

{#*#***»***»***»*****»»****##******#****«*»»**#*»###**#»***»*#******#*■»*»•♦*«*« 

ft*#**-******.**#***,,***********************#**********************************,,) 

(  .pa) 

PROCEDURE  Dchangesi 

(  This  procedure  provides  the  choice  menu  display  and 
also  evaluates  the  responses  ) 

BEGIN 


IF  NOT  (POS  ( 
IF  NOT  ( POS  ( 
IF  NOT  (  POS  ( 
IF  NOT  (POS  ( 
IF  NOT  (POS  ( 


.Nodedata)  =  0  1  THEN  Strip  (Nodedata)) 
, Arcdata  )  =  0  1  THEN  Strip  (Arcdata I i 
.Lenadata)  =  0)  THEN  Strip  (Lengdatali 
,Hilidatal  -  01  THEN  Strip  (Hilidatall 
.Lolidata)  =  0  1  THEN  Strip  (Lolidatali 


Clearscreeni 
GotoRC  13,  5)( 
WRITELN  IChg_varli 
NRITELNl 

WRITELN  ( '  Oats 

HRITELNl 

GotoRC  (8,  1)1 


Data  files: 


WRITELN  ( ' 

0. 

1  ,Choice_zero ) i 

WRITELN  ( ' 

1. 

Number  of  officers  at  each  assignment: 

’  ,  Nodedata 

ll 

WRITELN  1 ' 

2. 

Transfer  path  percentages: 

' ,  Arcdata 

1) 

WRITELN  ( ' 

3. 

Assignment  tour  lengths'. 

' ,  Lengdata  I 

1 

WRITELN  1 ' 

4. 

High  limits: 

' ,  Hilidata 

i ) 

WRITELN  ( ' 

5. 

Low  limits: 

' ,  Lolidata 

1 1 

WRITELN 1 HRITELNl 

REPEAT  (until  choice  correct  ) 

GotoRC  (16,11) 

WRITE  ('  Type  your  selection  [0,1,2,3,4,51:  'll 
READ  (Kbd,  Choice  ll  (read  input  into  var  selection) 

First  :  =  ’ 0 ' i  Last  : =  '5' I  Qk_choice  :*  truei  (inputs  for  correct_choica 


Correct_Choice  (Choice,  First,  Last,  0k_choicel* 
) 

UNTIL  Ok_choice  =  true) 


procedure . 


END)  (Dchangesi 

{  »«**„«*  ******  *******************  ************* 

(pa) 

PROCEDURE  From_pathscm  i 

(  This  procecfcjre  simply  draws  the  illustration  on  the  screen  ) 

BEGIN 

C learscr een  i 

HRITELNl '  /---  'U 

WRITELNI '  /  'll 

WPITELNt  '  /  'll 

WRITELNI  '  / -  '  1 1 

WRITELNI  *  /  'll 

WRITELNI '  /  'll 


4  ,»i*  §•• ,!»’  t»»  | *•  J 


’JOT^WWKV.W/'J'TryT?’? 


'/  ”J*  "J-  '  »'.- 


MRITELN1 1 
WRITELNI  * 

WRITELNI  • 

WRITELNI 1 
WRITELNI 1 
WRITELNI 1 
WRITELNI 1 
WRITELNI 1 
WRITELNI 1 
WRITELNI 1 
WRITELNI  * 

WRITELNI 1 
WRITELNI  * 

WRITELNI ’ 

WRITELNI 1 
WRITELNI 1 

ENOi  {  From_pathscrn  } 

C****»*»****************#*#*********»***#**#«#*»******##*«****************»** 

**»*»**»)H«Ht»**»#*«*»**iW********»»#**M*******«**»*»»*****»**#»»*»»«****«»»#) 

{ .  pa} 

PROCEDURE  To.pathscrm 

(  This  procedure  simply  draws  the  illustration  cn  the  screen  ) 

BEGIN 


/ - 

/ 

/ 

/ - 

< 

\ 

\ - 

\ 

\ 

\ - 

\ 

\ 

\ - 

\ 

\ 

\— 


Clearscreeni 


WRITELN  1  ' 

- \ 

'  )i 

WRITELN  I  1 

\ 

•  )\ 

WRITELN  I ' 

\ 

■  it 

WRITELN  I  ‘ 

- \ 

•  >> 

WRITELN  I  ' 

\ 

*  \\ 

WRITELN  I • 

\ 

•  iv 

WRITELN  I ' 

- - \ 

•  ii 

WRITELN  I ' 

\ 

■  >> 

WRITELN  I ’ 

\ 

•  >* 

WRITELN  I  ■ 

. \ 

'  >» 

WRITELN  I  1 

> 

1  n 

WRITELN  I  1 

/ 

1  It 

WRITELN  I ' 

. . / 

•  It 

WRITELN  I ' 

/ 

'  >1 

WRITELN  I  * 

/ 

'  )» 

WRITELN  1 ' 

. / 

•  )> 

WRITELN  I  * 

/ 

'  1  > 

WRITELN  1  ‘ 

/ 

'  >l 

WRITELN  I ' 

- / 

'  )» 

END  i  I  to  pathscm  ) 


APPENDIX  I 

SWOPATH  DISPLAYS  INCLUDE  FILL 


Disp.billets 


f 

t 

/ 

I 

i 


PROCEDURE  Disp.Assign; 

This  procedure  provides  the  activity  v.s.  all  tours  choices  and  displays 
VAR 


X:  INTEGER l 
BEGIN 


REPEAT  until  finished 

Einished:=  false* 
Clcarscreeni 


Center  (05,  'Which  activity 
WRITE  LN  ) WRITELN (WRITELN ) 

are 

you  interested  in?'H 

WRITELN  l ' 

A. 

Professional  Training'  H 

WRITELN  ( ' 

B. 

Professional  Education') 

WRITELN  (  1 

C. 

Joint  Educ  '  )  i 

WRITELN  (  ' 

0. 

Joint  Tour  ' I i 

WRITELN  (  ' 

e. 

Fleet  Unit ’  t i 

WRITELN  <  ' 

F  . 

Afloat  Staff'  H 

WRITELN  ( 1 

G. 

Shore  ' ) i 

WRITELN  I ' 

WRITELN) 

H. 

Separation'  1 1 

1 1/05/8  7 


TF3 


REPEAT  until  choice  correct 

GotoRC  I  18 1 15  1 1 

WRITE  (  'Type  your  choice:  '  l| 

READ  ,'Kbd,  AH  read  input  into  var  selection 
A  :  =  UPCASE  (AH 

First  :=  'A'l  Last  :=  'H'l  0H._choice  :«  true) 
Correct_choice  (  A,  First.  Last,  Ok_choice  H 
UNTIL  Ok_choice  *  true  ( 

Billat_total  (  T ,  A  ]  : =  Billet. node  [  T,  A,  1  1  ♦ 


Billet.node 

l 

T, 

A, 

2  1 

♦  Billet.node  ( 

T  .  A,  3  1  . 

Billet_node 

l 

T, 

A, 

4  1 

*  Billet.node  ( 

T,  A,  5  1  • 

Billet_node 

t 

T, 

A, 

6  1 

♦  Billet.node  [ 

T  ,  A,  7  )  * 

Billet.node 

[ 

T, 

A, 

8  ! 

♦  Billet.node  ( 

T.  A,  ®  )  * 

Billet_node 

( 

T, 

A, 

10 

1  ♦  Billot  node 

[  T,  A,  li  )  * 

Billet. node 

t 

T, 

A, 

12 

1  ♦  Billet  node 

l  T,  i,  U  |  . 

Billet.node 

( 

T, 

A, 

14 

1  *  Billet  node 

t  T,  A,  IS  1  ♦ 

Billet.node 

t 

T, 

A  t 

lb 

li 

Clearscreeni 

WRITELNi 

WRITELN  ( '  For 

'  ,Yrcocnt , 

ye%r »  % 

»  and 

Quarter,’  qu*rt*rl  »  i  c»lcu*«tior» 

WRITELNi 

WRITELN  ( ' 

For :  ' ,  Activity  1 

A  Jit 

GotoRC  (6.  1  H 
WRITELN  l  ' 

WPITELNi 

GctcPC  18,  ion 

TOURS 

'  i  V 

WPITEIM  1 'FIRST 

SECOND 

THIRD 

FOURTH 

F  I  F  T H 

GotoRC  i 14 ,  Bn 
WRITELN  )  SEVENTH 
T  =  1  v 

X  •  *  5  i 

GotoRC  110,  X  H 

EIGHTH 

ninth 

tenth 

Eleventh  'wf.f'M 

Billet. total  (  T, 

A  1  :  =  Billet 

noda  (  T 

.  A.  I  ]  ♦ 

-f 


Billat.noda  (  T »  A ■  2  1  ♦  Billat.noda  l  T»  A,  S  1  ♦ 

Billat.noda  t  T,  A,  4  1  ♦  Billat.noda  I  T ,  A ,  5  1  ♦ 

B i 1 la t .noda  I  T,  A,  6  1  ♦  Billat.noda  t  T,  A,  7  ]  ♦ 

Billat.noda  I  T,  A.  6  ]  ♦  Billat. noila  [  T,  A>  9  1  ♦ 

B 1 1 lat.noda  (  T,  A,  10  ]  ♦  Billat.noda  l  T,  A,  U  1  ♦ 

B 1 1  la  t .noda  t  T,  A,  12  ]  ♦  Billat.noda  t  T,  A,  IS  1  + 

Billat.noda  t  T,  A,  14  1  ♦  Billat.noda  t  T,  A,  15  1  ♦ 

Billat.noda  t  T.  A>  lb  It 

WRITE  IROUNO  t  B 1 1  la t_ total  C  T,  A  1  1 : 10  1 1 

FOR  T  : S  2  TO  6  00 

BEGIN 

x  -  -  x  »  io v 

GotoRC  I  10  .  X  P 1 

Billat.total  t  T .  A  1  : =  Billat.noda  t  T,  A,  1  ]  ♦ 

Billat.noda  (  T,  A,  2  1  ♦  Billat.noda  t  T,  A,  S  1  ♦ 

Billat.noda  I  T,  A,  4  1  ♦  Billat.noda  [  T,  A,  5  1  ♦ 

Billat.noda  l  T,  A,  6  1  ♦  Billat.noda  1  T,  A,  7  1  * 

Billat.noda  1  T ,  A ,  8  1  ♦  Billat.noda  1  T ,  A »  4  1  ♦ 

Billat.noda  (  T,  A,  10  1  ♦  Billat.noda  l  T,  A.  11  1  ♦ 

Billat.noda  1  T ,  A ,  12  )  ♦  Billat.noda  t  T,  A,  IS  1  ♦ 

Billat.noda  t  T,  A,  14  1  »  Billat.noda  (  T,  A,  IS  I  « 


Billat  noda  (  T,  A,  16  )i 
WRITE  I  ROUND  I B 1 1 la t _ to tal  [  T,  A  1  1 : 10  I » 


T  >7i 
X  »  5l 
GotoRC 
Billat 


(  T  .  i 

Billat. 

noda 

1  T,  A,  1  1  ♦ 

Billat 

.noda 

[  T, 

k  . 

2  ) 

♦  Billat.noda  [ 

T,  A.  S  1 

♦ 

Billat 

noda 

[  T, 

k  , 

4  1 

♦  8 l 1 lat .noda  t 

T,  A,  5  1 

♦ 

Billat 

.  noda 

[  T. 

k  , 

6  1 

»  Billat.noda  t 

T,  A,  7  1 

♦ 

Billat 

noda 

[  T, 

k  . 

8  1 

♦  Billat.noda  1 

T,  A,  <»  1 

♦ 

Billat 

noda 

[  T  . 

k  , 

10  1 

♦  Billat.noda 

1  T,  A.  11 

] 

♦ 

Billat 

noda 

[  T  . 

k  , 

12  1 

♦  Billat.noda 

I  T,  A ,  IS 

) 

♦ 

Billat 

noda 

[  T, 

k  , 

14  1 

♦  Billat.noda 

I  T,  A.  15 

J 

♦ 

Billat 

noda 

:  t  , 

k  , 

la  1 

i 

write  iROUNO  iBillat. total  t  T, 
FOR  T  *  8  TO  12  00 


1  i  10  i  p 


FOR  T 
BEGIN 

P  3  4 

GotoRC 

Billat 


-  10 » 

1* .  Xl| 


total  ( 

T  .  k 

*  Billot  '*rd®  (  T,  A,  1  J 

♦ 

Billat 

r^odm 

(  T  . 

.  2  1  ♦  Billat  noda  I 

T  , 

A,  S  1  ♦ 

Billat 

nod® 

1  T, 

.  <  1  ♦  Billat  noda  ( 

T  , 

A,  5  1  ♦ 

Billat 

ncd* 

1  T  , 

.  i  1  •  Billat  noda  ( 

T  , 

A,  7  I  ♦ 

Billat 

nod* 

i  T, 

.  9  i  •  Billot .noda  1 

r  > 

A,  9  |  . 

Billat 

nod® 

1  T  , 

,  10  1  •  Billat  noda 

l  T 

A.  11  )  ♦ 

Billat 

nod® 

(  T. 

.  12  1  •  Billat  noda 

1  T 

A.  IS  1  » 

Billat 

noda 

I  T  , 

1  •  i  •  Bi  1  lat  noda 

l  T 

A,  IS  1  * 

Billat 

noda 

I  T. 

.  1  3  )  . 

ROUNO  i Billat 

total 

,  r  .  a  i  i  i :  1 1 

•fREAT  .aitil  anawar  cofr.  • 

Cant ar  '  IV  0o  /ryu  da»ira  to  \mm 
•f  AO  i  Kbd.  InlNir  i  i 
OP  anawar  "  tr.jai 

Torract  artmwar  '  Imix'  ■  OP  •>  i_a< 
'.RET  I L  OP  anawar  tr>,#i 

IF  Anawar  tr>  |  I  .  ,  ! 

BEGIN 

i  a»r  r  aan , 
l  X  D  llll/ii 

<  NO  . 


tt  ’  *  i  1  ini  at-ad  '  *  i  ■  ja  ■ 


-y"mr  activit/  braaBoot7  i  V /N  I  it 
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END)  Disp.Assign 
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PROCEDURE  Disp.Tours) 

This  procedure  provides  the  tour  v.s.  all  activities  choices  and  displays 
VAR 

Ok_ranga , 

Ok. tour , 

Ok_activity:  Boolean) 

BEGIN 

Ok.rango  :=  false) 

Ok_tour  false) 

Ok_activity  false) 


REPEAT  until  finished 

Clearscreen) 

GotoRC  (5,  5D 

CENTER  13, 'Which  Tour  do 

you 

wish  to  see  displayed? 

WRITELN) WRITELN) 

WRITELN  ( ' 

TOUR 

'  ) 

WRITELN) 

WRITELN  ( • 

1. 

FIRST 

'  >> 

WRITELN  ( ' 

2. 

SECOND 

'  1) 

WRITELN  (  ' 

3. 

THIRD 

'  )) 

WRITELN  (  * 

4. 

FOURTH 

'  )) 

WRITELN  (  ' 

5. 

FIFTH 

'  )) 

WRITELN  (  ' 

6. 

SIXTH 

’  1) 

WRITELN  ( ' 

7. 

SEVENTH 

*  ») 

WRITELN  (  * 

a. 

EIGHTH 

'  )) 

WRITELN  ( ' 

9. 

NINTH'  )) 

WRITELN  (  ’ 

10. 

TENTH'  )> 

WRITELN  (  ' 

n. 

ELEVENTH'  )» 

WRITELN  <  * 

12. 

TWELFTH'  )) 

GotoRC  !  22,  51) 

WRITELN  ( •  TOUR: 

9 

a 

> 

number<CR>  ) '  ) ) 

)> 


REPEAT 
GotoRC  122,  141) 
SI-  RE AO  (  T  I 


Until  Ok_tour  and  Ok_ranga  both  true 


*!♦  ) 


read  TOUR  number  but  first  cancel  I/O 

checking  to  prevent  error  if  non  integer 
key  is  struck  accidentally.  Then  turn  back  on 
Ok_tour  :=  ( IORESULT  =01)  TURBO  PASCAL  I/O  error  check.  If  input 

was  in  fact  correct  i.e.  an  integer  then 
the  TB  function  IORESULT  will  return  a  0 

IF  (T  >=  1)  AND  <T  <=  12)  THEN  Ok_ranga  :=  true) 

IF  IT  <  1 >  OR  IT  >  121  THEN  0K_range  :  =  false) 

IF  NOT  0k_tour  OR  NOT  Ok_range  THEN  Hrong.answer ) 

UNTIL  I  Ok  tour  AND  Ok_rartge )  *  true) 

FOR  A  :*  ’A’  TO  'H'  OO 
BEGIN 

Billet. total  I  T »  A  1  : =  Billot.node  [  T,  A,  1  1  ♦ 


( 


l 


t  T,  A, 


2  ]  *  Billet.node  [ 
4  1  ♦  Billet_node  l 
6  1  *  Biliet.node  [ 


Billat.node 
Billet .node 
Billet.node 
Billet.node  [  T,  A,  8  1  ♦  Billet.node  [ 
Billet.node  [ 

Billet.node  I 
Billet.node  [ 

Billet.node  I 
ENO)  for  loop 


T,  A, 
T,  A, 
T,  A, 
T,  A, 


10 

12 

14 

16 


]  ♦  Billet.node  ( 
1  *  Billet.node  I 
1  ♦  Billet .node  ( 
1) 


T, 

T, 

T, 

T, 

T, 

T, 

T, 


A, 

A, 

A, 

A, 

A, 

A, 

A, 


1 

1 

1 

1 

11 

13 

15 
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Clearscreen) 
WRITELN  ( '  For 
1 1  ons .  '  I ) 


1  .Yrcount , '  year) s  )  and 


"1 


,  Quarter , 


quarter!  s)  calcula 


*3 


wmmmmm* 
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WRITELN  < 
WRITELN  ( 
WRITE UN  ( 
WRITELN  ( 
WRITELN  ( 
WRITELN  ( 
WRITELN  ( 
WRITELN  ( 
WRITELN  ( 
WRITELN  ( 
WRITELN  ( 
WRITELN  ( 
WRITELN  ( 
WRITELN  ( 
WRITELN  ( 
WRITELN  ( 
WRITELN  ( 
WRITELN  ( 
WRITELN  ( 
WRITELN  ( 


Fop:  ' ,  Tour  [ 

1  I ) 

Activity: 

Professional  Training  '  , 
Professional  Education  :  1 , 

Joint  Educ  :  * , 

Joint  Tour  :  1  , 

Fleet  Unit  :  *  , 

Afloat  Staff  :  *, 

Shore  :  1  » 

Separation  ' , 


ID 

fk-mber  of  officers'  >) 


ROUND 

( Billet, total 

1 

T, 

•A' 

ROUND 

1  Billet, total 

I 

T, 

'B' 

ROUND 

( Billet, total 

t 

T, 

•C' 

R0UN0 

( Billet, total 

t 

T, 

•D' 

ROUND 

1 Billet_total 

( 

T, 

'E' 

ROUND 

( Billet, total 

I 

T, 

■F* 

ROUND 

(Billet, total 

( 

T, 

■G' 

ROUND 

1  Billet, total 

[ 

T, 

'  H ' 

Tour, sum  [  T  ]  :=  Billet, total  t  T,  ‘A'l  ♦  Billet_total  [  T»  'B'l  ♦ 

Billet_total  t  T,  'C'l  ♦  Billet, total  [  T, 

Billet.total  t  T,  'E'l  ♦  Billet, total  t  T, 

Billet.total  t  T,  'G' ]  ♦  Billet, total  t  T, 

WRITELN  (‘  Total  officers  :  ROUND  ( Tour_sum  t  T  1  > : 10 H 


'  >) 


10  )) 

H 

10  )) 

)) 

10  )) 

)) 

10  )) 

1) 

10)) 

)) 

10  1) 

)) 

10)) 

>) 

10  )) 

'  )) 

'  D '  ]  ♦ 
■  F  *  1  + 
■H'  h 


REPEAT  until  answer  correct 
Blankline  (24,1)1 

WRITE  >  'Do  you  desire  to  see  another  tour  breakout?  (Y/N)  ')) 

READ  (Kbd,  Answer)) 

Ok_answer  :=  true) 

Correct_answer  (Answer,  0k_answer)) 

UNTIL  Ok_answer  =  true) 


IF  Answer  in  t  'Y'.'y'l  THEN 
BEGIN 

Disp_tours) 

END) 

IF  Answer  in  t  'N'j'n'  1  THEN  Finished  :=  true) 
UNTIL  Finished  =  true) 


Clearscreen) 
END)  0isp_Tours 


•  pa 

PROCEDURE  Oisp_paths_f rom) 

This  procedure  displays  the  transfer  path  percentages  FROM 

VAR 

Ok_selection, 

Ok, tour , 

Ok_activity :  BOOLEAN) 

ZZ  :  CHAR) 

R. 

RR  :  INTEGER) 

BEGIN 

Ok, _ tour  :«  false) 

Ok_activity  :=  false) 

Finished  :*  false) 

REPEAT  until  finished 

REPEAT  until  tour/activity  selection  ok 
Ok, selection  :*  true) 

Clearscreen) 

Chg_var  :=  'ffiich  assignment  do  you  wish  to  see  the  transfer  paths  from?') 
Dchoicas ) 


awn  IT  W  LV  L'W'VWmW.VMVA’  A*  a.-  A’-  Kw  Km  V  VT V  K.»  A*  gnCB  CT  m  CT CT 


Claarscreen) 

IF  (T  *  12)  THEN 
BEGIN 

Ok_selection  :=  false) 

Color  (  while .  red l) 

Blank  line  ( 24,1  ) ) 

WRITE  ( 1  There  are  no  transfer  paths  from  Twelfth  Tour  assignments.'  li 
DELAY  (2000  1) 

Color  (  white,  blue  l) 

Blankline  (24,11) 

EfJO  >  if  tour  12  is  chosen 

IF  A  in  I'H']  THEN 
BEGIN 

Ok_selection  :=  false) 

Color  (  white,  red)) 

Blankline  124,1)) 

WRITE  (  '  There  are  no  transfer  paths  from  Separation  assignments.  1  )) 
OELAY  (2000)) 

Color  (  white,  blue  I ) 

Blankline  ( 24,1 ) ) 

END)  if  tour  12  is  chosen 

UNTIL  Ok_selection  =  true) 

F r om_pa thsc rn ) 

GotoRC  (6,  5)) 

WRITELN  ( '  Display  for  ’I) 

GotoRC  (7,  5)) 

WRITELN  ('  ‘,YrCount>‘  years  and'  I) 

WRITE  ('  '.Quarter,'  quartars'l) 

GotoRC  (10,  5  1) 

WRITE  (  '  FROM'  I) 

GotoRC!  11,  2  1) 

WRITE  (Tour  l  T  1, Activity  [All) 

GotoRC  (15,  6)) 

WRITE  (ROUND  I Billat_nodol T , A , 1 1  I , '  officers')) 

WRITE  ('  will  be  transferred. ' I ) 

R  :*  1) 

RR  !*  2) 

FOR  ZZ  :*  'A'  TO  'H'  00 
BEGIN 

GotoRC  (  R,  40  1) 

WRITE  ('TO  ’,  Tour  [  T*1  1,  Activity  I  ZZ  ll) 

GotoRC  (RR,  42  1) 

WRITE  (  '  '  ,<Transfer_path[T,A,ZZ!*lC0  i  -  0,'X  or  ', 

ROUND  ( ( B i 1 la  t_noda  t  T  ,  A  ,  1  1  i  • i  r  r ansfer_path[ T ,  A ,ZZ  1(1, '  officers'  I) 

R  :s  R  ♦  J) 

RR  : *  RR  ♦  3 ) 

END) 

REPEAT  until  answer  correct 
Blankl ino  ( 24 ,  11) 

WRITE  (  'Do  you  desire  to  see  another 
READ  (Kbd,  Answer  I ) 

Correct_answer  (Answer,  Ok_answer  > , 

UNTIL  0k_answer  *  true) 

0k_tour  :*  false)  to  prevent  p.  „ 

Qk_activity  :s  falsa)  repeating  cn.:;,  , 

IF  Answer  in  ( 'N' , 'n '  1  THEN  F in  i  - > ,  : 

UNTIL  Finished  =  true) 

END)  0isp_paths_from 


••■arsfor  path  breakout?  (  Y/N  I 


pa 

PROCEDURE  Disp_paths_toi 

This  procedure  displays  the  transfer  p»* 


entagos  TO 


3 


Mfltt 


I 

V 

4 

j 


Ok.selection, 

Ok _ tour , 

Ok_»ctivity :  BOOLEAN t 
ZZ  :  CHAR) 

R  , 

RR  :  INTEGER ) 

Total:  REAL  ) 


Ok_tour  :  =  false) 

Ok_activity  : -  falsa) 

Finished  falsa) 

REPEAT  until  finishad 

REPEAT  until  ok  salaction 
Okselact ion  ;*  truav 
Claarscraani 

Chg.var  :*  'Hiich  assignment  do  you  wish  to  saa  tha  transfer  paths  to?') 
Dchoices i 
Clear  screen) 

IF  IT  =  II  THEN 
BEGIN 

Okselec t ion  : *  falsa) 

Color  I  white .  red  I ) 

Blanklina  (24,11) 

WRITE  I  '  Thera  are  no  transfer  paths  to  First  Tour  assignments . '  I) 
DELAY  ( 2000  I) 

Color  I  white,  blue!) 

Blanklina  124,  ll) 

END)  if  tour  12  is  chosan 

UNTIL  Ok. salaction  s  true i 

To  pa thscrn  > 

GotoRC  16,  55  1) 

WRITELN  (  '  Display  for  1  I) 

GotoRC  I  7,  55  1) 

WRITELNI YrCount , '  years  and'l) 

GotoRC  18.  55  1) 

WRITE  (Quarter.'  quarters'!) 

GotoRC  I  10,  55  1) 

WRITELN  I '  TO' I ) 

GotoRC  111,  55U 

WRITELN  I  Tour  [  T  J, Activity  (All) 

GotoRC  l  18 ,  45l) 

WRITE  l  'NOTE:  Percentages  reflect  tha  /  of  I) 

GotoRC  114,  45  1) 

WRITE  l 'officers  transferred  OUT  OF  the' I) 

GotoRC  l  20  .  45  D 

WRITE  I  'indicated  "FROM"  assignment  '  I) 

R  :  =  1 1 
RR  : *  2) 

Total  :  3  0 ) 

FOR  ZZ  : *  A'  TO  G'  00 

BEGIN 

GotoRC  i  R ,  11) 

WRITELN  I  FROM  ',  Tour  (  T-l  1.  Activity  (  ZZ  1  I ) 

GotoRC  l RR .  ID 

WRITE  I  '  '  ,  I  T  rans  far  path(T-1.2Z.Al»100i  40.'/  or 

ROUND  i  iBillet_node(  T  - 1 .22 .1  1  !•(  Trans  far  _path(  T-l  .22. A  1  i  i .  '  oM 

) 

Total  *  Total  ♦  MBillet  node!  T  - 1 ,  ZZ  .  1  1  l»i  Transfer  pa  thl  T  - 1  ,ZZ  ,  A  1  i  d 
R  3  R  •  5) 

RR  *  RR  ♦  5  ) 

ENO) 

GctoRC  ' 15 .  55  D 

WRITE  i  R (JUNO  I  Total  D  '  officers'  D 


REPEAT  until  answer  correct 
Blankline  124,11) 

WRITE  (  'Do  you  desire  to  see  another  transfer  path  breakout?  (Y,N)  '  )j 
READ  ( Kbd,  Answer)^ 

Correct_answer  (Answer,  Ok_answerl> 

UNTIl  Ok_answer  =  true) 

Ok_tour  false)  to  prevent  procedure  from 

Ok_activity  :=  false)  repeating  endlessly 

IF  Answer  in  t'N'.'n'l  THEN  Finished:1  True) 

UNTIL  Finished  -  true) 

END)  Oisp_paths_to 

»##»#»*»**»■*#**#**«»#***#*»»********##**»»»**«»***»■***************»***#*«*** 

*#»**«##***)HH*#)H,**#*****»***,HHHHHnHt#»»***#»*«**»******»#*»*****#»********** 


PROCEDURE  Disp_billets ) 

This  procedure  provides  the  billet  by  tour  length  choices  and  displays 


Of f icer_totals :  REAL) 
X  :  INTEGER) 

Finished, 

Ok_tour , 

Ok_activity:  BOOLEAN) 


Ok_tour  :=  false) 

Ok_activity  false) 

REPEAT  until  finished 
Clearsereen  > 

Chgvar  'Hhich  assignment  do  you  wish  to  see?') 

Dchoices ) 

Clearsereen) 

HRITELNiWRITELN) 

WRITELN  ('  After  ',  Yrcount,'  year) s  ) 

Ouarter,'  quarter! s )') ) 

WRITELN  )'  '  Jour  t  T  1 ,  '  '.Activity  (All) 

WRITELN  I  1  Tour  Length  of  ’ • 

Billet.length  IT, A),'  quarters.')) 

WRITELN  (  '  Officers  assisted:  '  I) 

WRITELN) 

Of  f  icertotals  0) 


FOR  X  : « 
BEGIN 
WRITELN  ( 


1  TO  16  DO 


•  ROUND!  Billet .node  t  T,  A,  X  )!,' 


Officer  totals  :*  Off icer_totals  ♦  Billet.node  I  T,  A,  X  )) 
END)  do  loop 

WPITELN) 

WRITELN  (  '  The  total  number  of  officers  assigned  is  ', 

R0UN0  ( Of f icer  to ta is  i  l  v 

REPEAT  until  answer  is  correct 
Blankl  ine  124,11) 

WRITE  l  Do  you  desire  to  see  another  assignment?  IY/NI  !) 
RE  AO  I kbd,  Answer  l ) 

Correct. answer  (Answer,  Ok  answer  1 1 
UNTIL  Ok  answer  »  true) 

I F  Answer  in  (  ' N '  , ' n '  1  THEN  F in i shed  * t rue ) 

UNTIL  Finished  ~  true) 

C  lear  screen i 

Oisp  billet  nodes 


T Length  l  X  1  I > 
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